

2009 






ALGORITHMIQUE 

Exemple 

& 

Exercices Corriges 

Avec Algorithme & VB.NET 




Marouan KACHACH 







ALGORITHMIQUE 2009 






uzt u it ui £ u a&£ )) 



ud^J (y& (jLluaj j) 1 La^ qa (jl£ Laj c*Ul) (3^3 L-J) jj^a qa Aj3 



Page 2 marouan.ts@gnriail.fr 



ALGORITHMIQUE 2009 



Table Des Matieres 



Introduction 6 

PARTIE I : 

I. L'instruction d' affectation 7 

1. 1 Syntaxe 7 

1.2 Exemple 7 

1.3 Remarque 7 

Exercices 7 

II. L'instruction d'entree / sortie 8 

II. 1 Remarque 8 

11.2 Exemple 8 

11. 3 Remarque 8 

11.4 Exemple 8 

Exercices 8 

III. La structure alternative 10 

III. 1 Les conditions simples 10 

111.1.1 Syntaxe 10 

111.1.2 Exemple 10 

111.2 L'instruction Si . . . Alors . . . Sinon . . . Finsi 10 

111.2.1 Syntaxe 10 

111.2.2 Exemple 10 

111.3 L' instruction Selon 11 

III.3.1 Syntaxe 11 

Exercices 11 

IV. Les structures repetitives 12 

IV.l L'instruction POUR 12 

IV.1.1 Syntaxe 12 

IV.1.2 Exemple 12 

Exercices 12 

IV.2 La structure TANT QUE 13 

IV.2.1 Syntaxe 13 

IV.2.2 Exemple 13 

Exercices 14 

IV.3 La structure REPETER 14 

IV.3.1 Syntaxe 14 

IV.3.2 Exemple 14 



Page 3 marouan.ts@gnriail.fr 



ALGORITHMIQUE 2009 



Exercices 15 

V. Les tableaux a une seule dimension 15 

V.l Syntaxe 15 

V.2 Exemple 15 

Exercices 16 

Exercices Niveau+ 18 

VI. Les tableaux a deux dimensions 20 

VI. 1 Syntaxe 20 

VI.2 Exemple 20 

Exercices 20 

*. Les suites 22 

Exercices 22 



PARTIE II : 



*.L 'instruction d'affectation 24 

Correction 24 

*.L 'instruction d'entree / sortie 25 

Correction 25 

*.La structure alternative 26 

Correction 26 

*.Les structures repetitives 31 

IV.l V instruction POUR 31 

Correction 29 

IV.2 La structure TANT QUE 34 

Correction : 34 

IV.3 La structure REPETER 35 

Correction : 35 

*.Les tableaux a une seule dimension 37 

Correction 37 

Correction de Niveau+ 41 

*.Les tableaux a deux dimensions 51 

Correction 51 

*. Les suites 59 

Correction 59 



Page 4 marouan.ts@gnriail.fr 



ALGORITHMIQUE 2009 



PARTIE III : 



*.L'instruction d'affectation 65 

Correction VB .NET 65 

*.L'instruction d'entree / sortie 67 

CorrectionVB.NET 67 

*.La structure alternative 68 

Correction VB .NET 68 

*.Les structures repetitives 73 

IV.l L' instruction POUR 73 

Correction VB .NET 73 

IV.2 La structure TANT QUE 76 

Correction VB .NET 76 

IV.3 La structure REPETER 78 

Correction VB .NET 78 

*.Les tableaux a une seule dimension 79 

Correction VB .NET 79 

Correction VB .NET de Niveau+ 84 

*.Les tableaux a deux dimensions 94 

Correction VB .NET 94 

*. Les suites 102 

Correction VB .NET 102 

Conclusion 106 



Page 5 marouan.ts@gmail.fr 



ALGORITHMIQUE 2009 




<\ 



& 







Page 6 marouan.ts@gnriail.fr 



ALGORITHMIQUE 2009 



Introduction 



Pour resoudre un probleme donne par l'informatique, l'utilisateur de l'ordinateur 
doit mettre au point un programme et le faire executer par la machine. 

L'ordinateur se chargera de traiter les instructions du programme et restituer les 
resultats demandes en fonction des donnes qui lui sont fournies. 

Un programme est une succession logique et ordonnee d'instructions. 

La programmation est l'ensemble des taches qui permettent d'elaborer un 
programme. 

Pour ecrire un programme il faut : 

- Bien connaitre le probleme. 

- Savoir le decouper logiquement en un ensemble d'operations elementaires 
(actions). 

- Connaitre un langage comprehensible par la machine. 

La demarche a suivre dans la resolution d'un probleme en informatique est done : 



Analyse du 
, probleme Traduction 

[Probleme] — ^Algorithme) ^Programme) 

Recherche des Dc 

outilsde I'algorithme 

resolution et dans un 

Decomposition langage 

en etapes comprehensible 

elementaires par la machine 



Un algorithme est done un moyen de description des etapes a suivre pour resoudre 
un probleme. 
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PARTIE I : 

I - L'instruction d' affectation: 

L'operation affectation permet d'assigner une valeur a un objet. 
Elle est representee en algorithmique par une fleche orientee de droite vers la 
gauche : 

1.1 - Syntaxe : 

Identificateur_objet <— Valeur 

1.2 - Exemple : 

V <- A 

V «- 6 

V <- 3* A + 2*b-l 

Par consequent les ecritures suivantes n'ont pas de sens : 

7 «- A 

A + B <- C 

Ou 

A<- 

V <- 1/A 

1.3 - Remarque : 

La declaration d'une variable n'affecte aucune valeur a la variable. 



HvatfM 



1. Quelles seront les valeurs des variables A et B apres execution des instructions suivantes ? 
Variables A, B : Entier 

Debut 
A*- 1 
B«-A + 3 
A<-3 
Fin 

2. Quelles seront les valeurs des variables A, B et C apres execution des instructions suivantes ? 
Variables A, B, C : Entier 

Debut 

A«-5 

B«-3 

C«-A + B 

A<-2 

C«-B-A 

Fin 
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3. Quelles seront les valeurs des variables A et B apres execution des instructions suivantes ? 
Variables A, B : Entier 

Debut 
A^5 
B^A + 4 
A^A+ 1 
B^A-4 
Fin 

4. Quelles seront les valeurs des variables A, B et C apres execution des instructions suivantes ? 
Variables A, B, C : Entier 

Debut 
A^3 
B^ 10 
C^A + B 
B^A + B 
A^C 
Fin 

5. Quelles seront les valeurs des variables A et B apres execution des instructions suivantes ? 
Variables A, B : Entier 

Debut 

A^5 

B^2 

A^B 

B^A 

Fin 

Questions : les deux dernieres instructions permettent-elles d'echanger les deux valeurs de B et A ? Si Ton 
inverse les deux dernieres instructions, cela change-t-il quelque chose ? 

6. Ecrire un algorithme permettant d'echanger les valeurs de deux variables A et B, et ce quel que soit leur 
contenu prealable. 

7. On dispose de trois variables A, B et C. Ecrivez un algorithme transferant a B la valeur de A, a C la valeur de 
B et a A la valeur de C (toujours quels que soient les contenus prealables de ces variables). 

8. Que produit 1' algorithme suivant ? 
Variables A, B, C : Caracteres 
Debut 

A <- "423" 
B «- "12" 
C^A + B 
Fin 

9. Que produit 1' algorithme suivant ? 
Variables A, B : Caracteres 
Debut 

A *- "423" 
B «- "12" 
C^A&B 
Fin 
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II - Les instructions d'entree / sortie : 

Pour bien, fonctionner, un algorithme doit en general acquerir des donnees 
(entrees) sur un peripherique (Exemple : clavier, disque) et fournir en consequence 
des resultats (sorties) sur un autre peripherique (ecran, imprimante). 

Pour realiser ces taches fondamentales en programmation, on a done besoin de 
deux operations distinctes : 

Lire(V) : qui permet cTaffecter a la variable (V), la valeur lue sur le 
peripherique d'entree. 

Ecrire(V) : qui permet de transferer la valeur (V) vers le peripherique de sortie. 

2.1 - Remarque 1: 

On peut avoir la meme instruction "Ecrire" l'affichage d'un ou plusieurs messages 
et d'une ou plusieurs variables. 

2.2 - Exemple : 

Ecrire " La somme de ces deux nombres " , a , " et " , b , " est : " , S 
Si a = 2 et b = 5, l'instruction ci-dessus s'executera ainsi : 
La somme des deux nombres 2 et 3 est : 7 

2.3 - Remarque 2: 

L'identificateur (V) doit etre une variable declaree. Par consequent les ecritures 
suivantes n'ont pas de sens : 
Lire(6) ; 
Lire(A+B) ; 

2.4 - Exemple : 

VARIABLES A, B, SOMME : ENTIERS 
Debut 

ECRIRE 'Entrez le premier nombre' 
Lire A 

ECRIRE 'Entrez le deuxieme nombre' 
LireB 

SOMME <- A + B 

ECRIRE 'La somme de ces deux nombres est : ' 
ECRIRE SOMME 
Fin 



6aatt& 



1. Quel resultat produit le programme suivant ? 
VARIABLES Val, Double : ENTIERS 
Debut 

Val ^231 

Double <- Val * 2 

ECRIRE Val 

ECRIRE Double 
Fin 
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2. Ecrire un programme qui demande deux nombres entiers a l'utilisateur, puis qui calcule et 
affiche le somme de ces nombres. 

3. Ecrire un programme qui lit le prix HT d'un article, le nombre d' articles et le taux de TVA, 
et qui fournit le prix total TTC correspondant. Faire en sorte que des libelles apparaissent 
clairement. 

4. Ecrire un programme qui lit une valeur et qui nous calcule 1' inverse de cette valeur. 

5. Le surveillant general d'un etablissement scolaire souhaite qu'on lui ecrit un programme 
qui calcule, pour chaque eleve, la moyenne des notes des cinq matieres. Ces matieres sont 
avec leur coefficient: 



MATIERE 


COEFFICIENT 


Math 


5 


Physique 


5 


Frangais 


4 


Anglais 


2 


Histoire - Geographies 


2 



III - La structure alternative : 

1 - Les conditions simples : 

1.1 - Syntaxe : 

Si condition Alors 

Instruction (ou suite d'instructions) 
Finsi 

1.2 - Exemple : 

Si x < Alors 

Ecrire" Valeur negatif " 
Finsi 

2 - L'instruction Si ... Alors ... Sinon ... Finsi 



2.1 - Syntaxe : 

Si condition Alors 
Instruction 1 

Sinon 

Instruction2 

Finsi 



2.2 - Exemple 
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Si x < Alors 

Ecrire" Valeur negatif " 
SinonSi x > Alors 

Ecrire" Valeur positif " 
Finsi 



Si x < Alors 

Ecrire" Valeur negatif " 
Sinon 

Ecrire" Valeur positif " 
Finsi 



3 - L f instruction Selon : 

3.1 — Syntaxe : 

Selon variable 

Cas valeur 1 

Blocl 
Cas valeur2 

Bloc2 
Cas valeur3 

Bloc3 
Fin Selon 




TV. >!&t-* >*^ vjfc *tj, 



1. Ecrire un algorithme qui demande deux nombres a l'utilisateur et l'informe ensuite si leur produit 
est negatif ou positif (on laisse de cote le cas ou le produit est nul). Attention toutefois : on ne doit 
pas calculer le produit des deux nombres. 

2. Ecrire un algorithme qui demande trois noms a l'utilisateur et l'informe ensuite s'ils sont ranges 
ou non dans l'ordre alphabetique. 

3. Ecrire un algorithme qui demande un nombre a l'utilisateur, et l'informe ensuite si ce nombre est 
positif ou negatif (on inclut cette fois le traitement du cas ou le nombre vaut zero). 

4. Ecrire un algorithme qui demande deux nombres a l'utilisateur et l'informe ensuite si le produit 
est negatif ou positif (on inclut cette fois le traitement du cas ou le produit peut etre nul). Attention 
toutefois, on ne doit pas calculer le produit ! 

5. Ecrire un algorithme qui demande l'age d'un enfant a l'utilisateur. Ensuite, il l'informe de sa 
categorie : 

- « Poussin » de 6 a 7 ans 

- « Pupille » de 8 a 9 ans 

- « Minime » de 10 a 1 1 ans 

- « Cadet » apres 12 ans 

6. a partir d'un montant lu, on determine un montant net par application d'une remise de : 

- 1% si le montant est compris entre 2000 et 5000 DH (valeurs comprises) 

- 2 % si le montant est superieur a 5000 DH. 

7. Ecrire un algorithme permettant d'effectuer la somme, la difference, le produit et le 
rapport de deux nombres reels a partir d'un menu : 
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1 

2 
3 
4 
5 



Somme 

Difference 

Produit 

Division 

Quitter 

Taper votre choix? 
On doit retourner au menu, lorsqu'on finit une operation ou si on tape un nombre incorrect 
(un message s'affichera). 

8. Saisir 2 entiers a et b, determiner dans R les racines de l'equation : ax + b =0 

9. Saisir 3 entiers a, b et c, determiner dans R les racines de l'equation :aX 2 +bX + c =0 

10. Donnez un algorithme qui lit sur l'entree une valeur representant une somme d'argent et 
qui calcule et affiche le nombre de billets de 200 DH, 100 DH, 50 DH et 20 DH, et les 
pieces de 10 DH, 5 DH, 2 DH, et 1 DH. 

IV - Les structures repetitives : 
1 - L 'instruction Pour : 

1.1 - Syntaxe : 

POUR compteur = \di\_initial A val_final PAS DE increment 

Instructions a repeter 
FIN POUR 

1.2 - Exemple : 

Variable i Entier 
Debut 

Pour i de 1 a 3 Faire 

Ecrire « Hello World » 
FinPour 
Fin 

Resultat : 

Hello World 
Hello World 
Hello World 



r^. 




1. Ecrire un algorithme qui demande un nombre de depart, et qui ensuite ecrit la table de 
multiplication de ce nombre, presentee comme suit (cas ou l'utilisateur entre le nombre 7) 
Table de7: 

7x1=7 
7x2=14 

7x3 = 21 

7x10 = 70 



Page 13 marouan.ts@gmail.fr 



ALGORITHMIQUE [2009 

2. Ecrire un algorithme qui demande un nombre de depart, et qui calcule la somme des entiers 
jusqu'a ce nombre. Par exemple, si Ton entre 5, le programme doit calculer : 

1 + 2 + 3+4 + 5 = 15 

3. Ecrire un algorithme qui demande un nombre de depart, et qui calcule sa factorielle. 
NB : la factorielle de 8, notee 8 ! vaut 1x2x3x4x5x6x7x8 

4. Ecrire un algorithme qui demande successivement 20 nombres a l'utilisateur, et qui lui dise 
ensuite quel etait le plus grand parmi ces 20 nombres : 

Entrez le nombre numero 1:12 
Entrez le nombre numero 2:14 

Entrez le nombre numero 20 : 6 

Le plus grand de ces nombres est : 14 

Modifiez ensuite 1' algorithme pour que le programme affiche de surcroit en quelle position avait ete 

saisie ce nombre : 

C etait le nombre numero 2 

5. Ecrire un algorithme qui : 

- lit d'abord une valeur 

- ensuite il va lire successivement 20 nombres. 

- enfin il va determiner combien de fois la premiere valeur a ete saisie (sans compter la premiere 
saisie). 

6. Ecrire un algorithme qui calcule et affiche la valeur de Y donnee par : 

Y = N 10 Si N>20 

Y = N! Si N < 20 

N etant un entier positif connu. 

7. Ecrire un algorithme pour tester si un nombre est parfait. Un nombre est dit parfait s'il est 
egal a la somme de ses diviseurs stricts. 

Exemple : 28 = 1 + 2 + 4 + 7 + 14. 

8. Un nombre entier P est premier si ses seuls diviseurs sont 1 et P. Ecrire un algorithme 
qui permet de determiner si un nombre est premier ou non. 

2 - La structure TANT QUE : 

2.1 - Syntaxe : 

Tantque condition de continuation Faire 

Instructions a repeter 
FinTantque 

2.2 - Exemple : 

Variable ch chaine de caractere 
Debut 

ch = « oui » 

Tantque ch = « oui » Faire 

Ecrire « Hello World » 

Ecrire « Voulez-vous continuez oui/non » 
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Lire ch 
FinTantque 
Ecrire « Fin» 
Fin 

Resultat : 

Hello World 

Voulez-vous continuez oui/non : Si la reponse est egale oui le programme affiche 
"Hello World" Si la reponse est egale non le programme affiche Fin. 






1. Ecrire un algorithme qui demande a l'utilisateur un nombre compris entre 1 et 3 jusqu'a ce que la 
reponse convienne. 

2. Ecrire un algorithme qui demande un nombre compris entre 10 et 20, jusqu'a ce que la reponse 
convienne. En cas de reponse superieure a 20, on fera apparaitre un message : « Plus petit ! », et 
inversement, « Plus grand ! » si le nombre est inferieur a 10. 

3. Ecrire un algorithme qui demande un nombre de depart, et qui ensuite affiche les dix nombres 
suivants. Par exemple, si l'utilisateur entre le nombre 17, le programme affichera les nombres de 18 

a 27. 

4. Ecrire un algorithme qui demande successivement des nombres a l'utilisateur, et qui lui dise 
ensuite quel etait le plus grand parmi ces nombres et quel etait sa position. La saisie des nombres 
s'arrete lorsque l'utilisateur entre un zero. 

5. Lire la suite des prix (en DH entiers et terminee par zero) des achats d'un client. Calculer la 
somme qu'il doit, lire la somme qu'il paye, et determiner le reste a rendre. 

3 - La structure REPETER : 

3.1 - Syntaxe : 

Repeter 

Instruction a repeter 
Jusqu'a condition 

3.2 - Exemple : 

Variable n Entier 
Debut 

Repeter 

Ecrire « Entrez un nombre : » 
Lire n 
Jusqu'a n = - 1 
Ecrire « Fin » 
Fin 
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Resultat : 

Entrez un nombre : Si la reponse est egale un nombre different a (-1) le programme 
affiche " Entrez un nombre : " . Si la reponse est egale (-1) le programme affiche "Fin". 



Jr 



1. Ecrire un algorithme qui demande successivement des nombres a l'utilisateur, et qui calcule le 
nombre de valeurs saisies. La saisie des nombres s'arrete lorsque l'utilisateur entre le caractere « n 

» ou « N ». 

2. Ecrire un algorithme qui demande successivement des nombres a l'utilisateur, et qui calcule leur 
moyenne. La saisie des nombres s'arrete lorsque l'utilisateur entre un zero. 

3. Modifiez 1' algorithme de l'exercice 1, de fagon qu'il nous renseigne sur le nombre des valeurs 
positives et sur le nombre des valeurs negatives. Ne comptez pas les valeurs nuls. 

4. Ecrire un algorithme qui lit les caracteres saisies par l'utilisateur. A la fin ce programme nous 
affichera la phrase saisie. La saisie des caracteres s'arrete lorsqu'on tape point «. ». Pour 
l'utilisateur veut inserer un espace il lui suffit de tapez sur 0. Par exemple si l'utilisateur tape 
successivement les caracteres « b », « o », « n », « j », « o », « u », « r », « t », « o », « u », « s », «. 
», il nous affichera la chaine « bonjourtous ». 

Mais si il tape « b » , « o », « n », « j », « o », « u », « r » , « », « t », « o », « u », « s », « . » , le 
programme affichera « bonjour tous ». 

V - Les tableaux a une seule dimension : 

Une donnee de type tableau est constitute d'un nombre de donnees elementaires de 
meme type. 

5.1 - Syntaxe : 

Variable Tableau nomTableau(Taille) en type 

5.2 - Exemples : 

Tableau Note(5) : Reel 

Note (5) est un tableau qui contient vingt valeurs reelles. 

Tableau nom(10), prenom(lO) : Chaine de caractere 

Nom(10) et prenom(lO) sont deux tableaux de 10 elements de type chaine. 
Un tableau peut etre represents graphiquement par (exemple Note(5)) : 



Note (1) Note (2) Note (5) 



&kk& 
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1. Considerons les programmes suivants: 
Tableau X (4) : Entier 

DEBUT 

X(l)<- 12 

X(2)^5 

X (3) <- 8 

X (4) <- 20 
FIN 

Tableau voyelle (6) : Chaine 
DEBUT 

Voyelle (1) <— « a » 

Voyelle (2) <— « e » 

Voyelle (3) <— « i » 

Voyelle (4) <— « o » 

Voyelle (5) <— « u » 

Voyelle (6) <— « y » 
FIN 

Donner les representations graphiques des tableaux X (4) et voyelle (6) apres execution de ces 
programmes. 

2. Quel resultat fournira l'execution de ce programme : 
Variable i : Entier 

Tableau C (6) : Entier 
DEBUT 

POUR i = 1 A 6 

Lire C (i) 
FIN POUR 
POUR i = 1 A 6 

C (i) <- C (i) * C (i) 
FIN POUR 
POUR i = 1 A 6 

Ecrire C (i) 
FIN POUR 
FIN 
Si on saisit successivement les valeurs : 2 , 5, 3, 10,4,2. 

3. Que fournira l'execution de ce programme : 
Tableau suite (8) : Entier 

Variable i : Entier 
DEBUT 

Suite (1)^1 
Suite (2) <- 1 
POUR i = 3 A 8 

Suite (i) <— suite (i - 1) + suite (i - 2) 
FIN POUR 
POUR i = 1 A 8 

Ecrire suite (i) 
FIN POUR 
FIN 

4. Soit T un tableau de vingt elements de types entiers. Ecrire le programme qui permet de calculer 
la somme des elements de ce tableau. 

5. Soit T un tableau de N entiers. Ecrire l'algorithme qui determine le plus grand element de ce 
tableau. 
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6. Ecrire un programme qui permet de lire 100 notes et de determiner le nombre de celles qui sont 
superieures a la moyenne. 

7. Soit T un tableau de N entiers. Ecrire l'algorithme qui determine simultanement la position du 
plus grand element et la position du plus petit element du tableau. 

8. Soit T un tableau de N reels. Ecrire le programme qui permet de calculer le nombre des 
occurrences d'un nombre X (c'est-a-dire combien de fois ce nombre X figure dans le tableau T). 

9. Ecrire un algorithme qui calcule le nombre d'entiers pairs et le nombre d'entiers impairs 
d'un tableau d'entiers. 

10. Soit un tableau T(n), ecrire un algorithme qui calcule VMEP (valeur moyenne des 
elements positifs), VMEN (valeur moyenne des elements negatifs) et NEM (nombre 
d'elements nuls). 

11. On dispose des notes de 25 eleves ; chaque eleve peut avoir une ou plusieurs notes mais 
toujours au moins une. Ecrire un programme permettant d'obtenir la moyenne de chaque eleve 
lorsqu'on lui fournit les notes. On veut que les donnees et les resultats se presentent ainsi : 



Notes de 1' eleve numero 1 

12 

12 

-1 

Notes de 1' eleve numero 2 

Notes de 1' eleve numero 25 

75 

-1 

Moyennes 

Eleve numero 1:11 

Eleve numero 25 : 15 
Moyenne de la classe : 12.3 



Les parties italiques correspondent aux donnees tapees par l'utilisateur. La valeur -1 sert de critere 
de fin de notes pour chaque eleve. 
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1. Ecrire un algorithme qui renverse un tableau (Si le tableau est trie en ordre croissant, il 
devient trie par ordre decroissant). 

2. Ecrire un algorithme qui insere un element donne X a la position K d'un tableau. 

3. Soit T un tableau ranges dans l'ordre croissant. Ecrire un algorithme qui insere un 
element donne X dans le tableau T en respectant l'ordre croissant? 

4. Donner un algorithme pour supprimer un element donne d'un tableau d'entiers. 

5. On demande l'ecriture d'un algorithme qui permet la representation du triangle de Pascal. 
NB : utilisez un tableau a une seule dimension. 

1 

1 1 
121 
133 1 
14641 

6. Donner un algorithme qui prend en argument un tableau d'entiers de taille n et qui le 
modifie de tels sorts que tous les entiers pairs se retrouvent avant les entiers impairs. 

Exemple : 

Au depart :T=74784639 4. 

Apres modification :T= 4 8 4 6 6 7 7 3 9. 

7. Faire un programme qui calcule le produit scalaire de deux vecteurs d'entiers U et V (de 
meme dimension). 

Exemple : 

/ \ / \ 

13 2-4 1*12-3 51 = 3*2 + 2* (-3) + (-4) * 5 = -20 

\ / \ / 

8. Soit T un tableau d'entiers de taille n. Un plateau dans T est une suite d'elements 
consecutifs et egaux de T. Le probleme consiste a trouver le plus long plateau dans le 
tableau T. 

Exemple : 

Pour le tableau contenant les valeurs (2; 2; 6; 6; 6; 6; 3; 3; 6; 3; 3; 3; 2; 3; 3), le plus long 

plateau commence a l'indice 3 et il est de longueur 4. 

Ecrire un algorithme qui permet de resoudre le probleme enonce. 

9. Trier les elements d'un tableau par les methodes suivantes : 
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a. Tri a bulles. 

b. Tri par selection. 

c. Tri par insertion. 

10. On considere une sequence d'entiers representee dans un tableau. Ecrire un algorithme 
qui affiche la valeur du dernier entier de la sequence. 

11. On considere une sequence de durees representee dans un tableau. Ecrire un algorithme 
qui lit une duree D, et qui affiche la petite duree superieur a D, presente dans la sequence. 
L'algorithme est decompose en deux etapes : recherche de la premiere duree superieure a D, 
puis calcul du resultat par un parcours de la fin de sequence. 

12. On considere une sequence d'entiers representee dans un tableau. Ecrire un algorithme 
qui affiche un message indiquant si la sequence comporte que des entiers positifs. 

13. On considere deux sequences d'entiers positifs en ordre croissant represents dans un 
tableau. Ecrire un algorithme qui realise l'interclassement des deux sequences : le resultat 
est un tableau contenant une troisieme sequence en ordre croissant comportant tous les 
elements presents dans les deux sequences lues. Si un meme element apparaitre x fois dans 
la premiere sequence et y fois dans la deuxieme, il doit apparaitre x+y fois dans la sequence 
resultat. Les sequences lues peuvent etre vides. 

Exemple : sequence 1 : 1 1 3 4 1 1 1 1 25 28 30 30 32 40 
Sequence 2 : 1 2 3 5 5 11 24 25 29 
Sequence resultat : 1 1 1 2 3 3 4 5 5 11 11 11 24 25 25 28 29 30 30 32 40 

14. On considere un tableau comportant une sequence de chaine de caracteres. Ecrire un 
algorithme qui affiche et compte toutes les chaines qui contiennent au moins trois 
occurrences de caractere 'A' 

Exemple : contenu du tableau : "Marouan" "Peace" " HAH AH A " 
Resultat affiche : HAHAHA 

15. On considere un tableau de caracteres comportant un texte forme de lettres et 
d'espaces. Un mot est une suite de lettres delimitee par des espaces ou par les extremites du 
texte. Ecrire un algorithme qui affiche un message indiquant si le texte est un tautogramme, 
c'est a dire si tous les mots du texte commencent par la meme lettre. Exemple : le lion lape 
le lait lentement. 

16. On considere deux ensembles d'entiers representes dans les tableaux, Chaque entier 
n'apparait qu'en un exemplaire dans une sequence. Ecrire un algorithme qui produit un 
tableau contenant l'intersection des deux ensembles. Exemple : tableau 1:10512719 28 
6. Tableau 2 : 5 14 19 2 10 6 29 3 7. Tableau resultat : 10 5 7 19 6 

17. Ecrire un algorithme qui permet de calculer le PGDC (le plus grand diviseur commun) 
de deux entiers. Exemple : le PGDC de 144 et 96 est : 48 
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VI - Les tableaux a deux dimensions : 

Les tableaux a deux dimensions se presentent comme un gri (Matrice). Ay ant un certain 
nombre de ligne et un certain nombre de colonne. 

6.1 - Syntaxe : 

Variable Tableau nomTableau(n, m) en type 
n : nombre de ligne. 
m : nombre de colonne. 

6.2 - Exemples : 

Tableau T (3, 3) : Reel 



T(l, 1) 


T(l,2) 


T(l,3) 


T (2, 1) 


T (2, 2) 


T (2, 3) 


T(3, 1) 


T (3, 2) 


T (3, 3) 



4MKKw<i 



1. Ecrire un algorithme qui calcule la somme des elements d'une matrice. 

2. Ecrire un algorithme qui calcule la somme des lignes d'une matrice. 

3. Ecrire un algorithme qui calcule la somme des elements de la diagonale d'une matrice 
carree. 

4. Ecrire un algorithme qui calcule le produit de tous les elements d'une matrice. 

5. Ecrire un algorithme qui calcule le produit d'une matrice avec un vecteur. 

6. Donner un algorithme pour calculer le produit matriciel. 

7. Donner un algorithme pour tester si une matrice carree est symetrique. 

8. Faire un programme permettant de calculer d'afficher la table des produits pour N variant 
del a 10: 

X*Y 1 234567 89 10 




1 

2 
3 
4 
5 
6 
7 
8 
9 
10 







































1 


2 


3 


4 


5 


6 


7 


8 


9 


10 





2 


4 


6 


8 


10 


12 


14 


16 


18 


20 





3 


6 


9 


12 


15 


18 


21 


24 


27 


30 





4 


8 


12 


16 


20 


24 


28 


32 


36 


40 





5 


10 


15 


20 


25 


30 


35 


40 


45 


50 





6 


12 


18 


24 


30 


36 


42 


48 


54 


60 





7 


14 


21 


28 


35 


42 


49 


56 


63 


70 





8 


16 


24 


32 


40 


48 


56 


64 


72 


80 





9 


18 


27 


36 


45 


54 


63 


72 


81 


90 





10 


20 


30 


40 


50 


60 


70 


80 


90 


100 
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9. Ecrire l'algorithme qui determine le plus grand element et le petit element ainsi, la position de 
plus grand element et le petit element d'une matrice. 

10. On demande l'ecriture d'un algorithme qui permet la representation du triangle de 
Pascal : 

1 

1 1 
121 
133 1 
14641 



11. Un carre magique d'ordre n est une matrice carree n x n telle que la somme des entiers 
de chaque ligne, chaque colonne et des deux diagonales sont identiques. 
Exemple de carre magique d'ordre 3 : 



4 


9 


2 


3 


5 


7 


8 


1 


6 



12. Ecrire un algorithme qui transfere une matrice M a deux dimension L et C (dimensions 
maximales : 10 lignes et 10 colonnes) dans un tableau V a une dimension L * C. 

Exemple : 

/ \ 

la b c dl / \ 

I e f g h I =======> labcdefghijkll 

li j k II \ / 

\ / 

13. Ecrire un algorithme qui effectue la transposition tA d'une matrice A de dimensions N 
et M en une matrice de dimensions M et N. 

Exemple : 



/ \ 

la b c d I 

tA = tie f g h I 

li j k 1 I 

\ / 



/ 

I a 
I b 



\ 
e il 

f J I 
I c g k I 

I d h 1 I 

\ / 



14. Ecrire un algorithme qui realise l'addition de deux matrices A et B de memes 
dimensions N et M. 
Exemple : 



/ \ 

la b c dl 

le f g hi 

li j k II 

\ / 



/ \ 

la' b' c' dl 

+ le' f g' h'l = 

li' j' k' l'l 
\ / 



/ \ 

la + a' b + b' c + c' d + d I 
le + e' f + f g + g' h + h'l 
| i + i' j+j' k + k' 1 + 1' I 

\ / 
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* - Les suites : 

VrlWywW I 

1. Donnez un algorithme pour calculer : 

S= 3° + 3 1 + 3 2 + + 3"" 1 

2. Donnez un algorithme pour calculer : 

S= 1+X 2 + X 4 + + x 2n 

3. Donnez un algorithme pour calculer : 
S= 1 + 1/2+1/3 + + l/n 

4. Donnez un algorithme pour calculer : 

S = 1 + 1/2 + 1/4 + 1/6 + + l/2n 

5. Donnez un algorithme pour calculer : 

S= 1-1/2 + 1/3 - 1/4 + -l/2n + l/2n+l 

6. Donnez un algorithme pour calculer : 
S= 1 + 1/2 + 2/3 +3/4 + 

7. Donnez un algorithme pour calculer : 

S= 1 - 1/3 + 1/4 - 1/6 + 1/7 + 

8. Donnez un algorithme pour calculer : 

S= X 1 + X 3 /3 + X 5 /5 + + X 2n+1 /2n+l 

9. Donnez un algorithme pour calculer : 

/ 

I So = 1 

I S n = 3S n _i + 5 

\ 

10. Donnez un algorithme pour calculer : 

/ 

I So = 1/2 

I Si =1 

\ 

11. Donnez un algorithme pour calculer : 

e x =l+X+ X 2 /2!+X 3 /3! + + X N /N! NB : avec N un donnee d'entree. 

12. Donnez un algorithme pour calculer : 

e x =l+X+ X 2 /2!+X 3 /3! + + X N /N! NB : avec N un donnee d'entree. 

Le calcule de e x s'arrete quand X N /N! Devient inferieur strictement a EPS (EPS est une 
donnee d'entree). 

13. Donnez un algorithme pour calculer : 

S =SIN(X) = X-X 3 /3!+X 5 /5!-X 7 /7! + 
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Itafei 



Apres execution de l'instruction 


La valeur des variables est : 


A<- 1 


A = 1 B =? 


B^A + 3 


A= 1B=4 


A^3 


A=3B=4 



2. 



Apres execution de l'instruction 


La valeur des variables est : 


A^5 


A = 5 B =? C =? 


B^3 


A = 5B = 3C=? 


C^A + B 


A=5B=3C=8 


A^2 


A=2B=3C=8 


C^B-A 


A=2B=3C=1 



3. 



Apres execution de l'instruction 


La valeur des variables est : 


A^5 


A = 5 B =? 


B^A + 4 


A=5B=9 


A^A+ 1 


A=6B=9 


B^A-4 


A=6B=2 



Apres execution de l'instruction 


La valeur des variables est : 


A^3 


A = 3 B =? C =? 


B^ 10 


A=3B = 10C=? 


C^A + B 


A = 3B = 10C = 13 


B^A + B 


A = 3B = 13C = 13 


A^C 


A = 13 B = 13 C = 13 



Apres execution de l'instruction 


La valeur des variables est : 


A^5 


A = 5 B =? 


B^2 


A=5B=2 


A^B 


A=2B=2 


B^A 


A=2B=2 



Les deux dernieres instructions ne permettent done pas d'echanger les deux valeurs de B et A, 
puisque Tune des deux valeurs (celle de A) est ici ecrasee. 

Si Ton inverse les deux dernieres instructions, cela ne changera rien du tout, hormis le fait que cette 
fois e'est la valeur de B qui sera ecrasee. 

6. L'algorithme est : 
Debut 

C^A 

A^B 

B^C 
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Fin 

On est oblige de passer par une variable dite temporaire (la variable C). 

7. L'algorithme est : 
Debut 

Fin 

En fait, quel que soit le nombre de variables, une seule variable temporaire suffit. 

8. II ne peut produire qu'une erreur d' execution, puisqu'on ne peut pas additionner des caracteres. 

9. On peut concatener ces variables. A la fin de l'algorithme, C vaudra done "42312". 



(Mm* 



1. On verra apparaitre a l'ecran : 



231 
462 



2. Le programme est : 
VARIABLES A, B, SOMME : ENTIERS 
Debut 

ECRIRE 'Entrez le premier nombre' 

Lire A 

ECRIRE 'Entrez le deuxieme nombre' 

LireB 

SOMME <- A + B 

ECRIRE 'La somme de ces deux nombres est : ' 

ECRIRE SOMME 
Fin 

Remarque : On peut remplacer les deux derniers lignes par 
ECRIRE 'La somme de ces deux nombres est : ', SOMME 

3. Le programme est : 
VARIABLES pht, ttva, pttc : REELS 
VARIABLE nb : ENTIER 

Debut 

ECRIRE "Entrez le prix hors taxes :" 
LIRE pht 

ECRIRE "Entrez le nombre d' articles :" 
LIRE nb 

ECRIRE "Entrez le taux de TVA :" 
LIRE ttva 

Pttc <- nb * pht * (1 + ttva) 
ECRIRE "Le prix toutes taxes est : ", ttvc 
Fin 
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4. Le programme est : 
VARIABLES x, inverse : REELS 
Debut 

ECRIRE "Entrez une valeur :" 
LIREx 
inverse <— 1 / x 

ECRIRE "L' inverse est : ", inverse 
Fin 

5. Le programme est : 

VARIABLES mat, phy, ang, fra, hg, moyenne : REELS 
Debut 

ECRIRE "Entrez la note de math :" 

LIRE mat 

ECRIRE "Entrez la note de physique :" 

LIRE phy 

ECRIRE "Entrez la note de fran£ais :" 

LIRE fra 

ECRIRE "Entrez la note d' anglais :" 

LIRE ang 

ECRIRE "Entrez la note d'histoire-Geo :" 

LIRE hg 

moyenne <— ((mat + phy) * 5 + fra * 4 + (ang 

+ hg)*2)/18 

ECRIRE "La moyenne est : ", moyenne 
Fin 



La^tetoiaJtoiative : 







. 



mw *jr" J*. J*t. -*r» TOP tw m.S*£ j*~-»~ N* 



1. Le programme est : 
Variables m, n : Entier 
Debut 

Ecrire "Entrez deux nombres : " 

Lire m, n 

Si m * n > Alors 

Ecrire "Leur produit est positif ' 
Sinon 

Ecrire "Leur produit est negatif ' 
Finsi 
Fin 

2. Le programme est : 
Variables a, b, c : Caractere 
Debut 

Ecrire "Entrez successivement trois noms : " 
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Lire a, b, c 

Si a < b et b < c Alors 

Ecrire "Ces noms sont classes alphabetiquemenf 
Sinon 

Ecrire "Ces noms ne sont pas classes" 
Finsi 



Fin 



3. Le programme est : 
Variable n : Entier 
Debut 

Ecrire "Entrez un nombre : " 

Liren 

Si n < Alors 

Ecrire "Ce nombre est negatif" 
SinonSi n = Alors 

Ecrire "Ce nombre est mil" 
Sinon 

Ecrire "Ce nombre est positif ' 
Finsi 
Fin 

4. Le programme est : 
Variables m, n : Entier 
Debut 

Ecrire "Entrez deux nombres : " 

Lire m, n 

Sim = 0OUn = 0Alors 

Ecrire "Le produit est nul" 
SinonSi (m < ET n < 0) OU (m > ET n > 0) Alors 

Ecrire "Le produit est positif 
Sinon 

Ecrire "Le produit est negatif 
Finsi 
Fin 

5. Le programme est : 
Variable age : Entier 
Debut 

Ecrire "Entrez l'age de 1' enfant : " 

Lire age 

Si age>= 12 Alors 

Ecrire "Categorie Cadet" 
SinonSi age >= 10 Alors 

Ecrire "Categorie Minime" 
SinonSi age >= 8 Alors 

Ecrire "Categorie Pupille" 
SinonSi age >= 6 Alors 

Ecrire "Categorie Poussin" 
Finsi 
Fin 

6. Le programme est : 

Variables montant , taux , remise : Reels 
Debut 
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Ecrire "Entrez le montant : " 

Lire montant 

Si montant < 2000 Alors 

taux <— 
Sinon 

Si montant < 5000 Alors 
taux <— 1 

Sinon 

taux <— 2 

Fin SI 
Fin Si 

Montant <- montant * (1 - taux / 100) 
Ecrire "Le montant net est : " , montant 



Fin 



7. Le programme est : 

Variables S, D, M, SO, Res, a, b : Reel 

Variables Choix : Entiers 

DEBUT 

Ecrire «1 



Ecrire «2 
Ecrire «3 
Ecrire «4 



-: » 



-Somme 

-Difference : » 

- Produit 

-Division 



» 

» 



Ecrire «5 : Quitter : » 

Ecrire « Taper votre choix? : » 

Lire Choix 
Ecrire « Entrez a : » 
Lire a 

Ecrire « Entrez b : » 
Lireb 
Selon Choix 
Casl 

Res <— a + b 

Ecrire «La Somme est : » , Res 
Cas2 

Res <— a-b 

Ecrire «La Difference est : » , Res 
Cas3 

Res <— a * b 

Ecrire «Le Produit est : » , Res 
Cas4 

Si b = Alors 

Ecrire « Impossible» 
Sinon 

Res <— a/b 

Ecrire «La Division est : » , Res 
FIN Si 
Cas5 

Exit 
Cas Sinon 
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Ecrire « Erreur de choix » 
Fin Selon 
FIN 

8. Le programme est : 
Variables a, b : Entiers 
Variables X : Reel 
DEBUT 

Ecrire « Entrez a : » 

Lire a 

Ecrire « Entrez b : » 

Lireb 

Si a = Alors 

Si b = Alors 

Ecrire « La solution est R » 

FIN Si 

Si b <> Alors 

Ecrire « Pas de solution » 

FIN Si 
FIN Si 
Si a <> Alors 

X <- -b/a 

Ecrire « X est : » , X 
FIN Si 

FIN 

9. Le programme est : 
Variables a, b, c : Entiers 
Variables Xi, X 2 , Delta : Reel 
DEBUT 

Ecrire « Entrez a : » 

Lire a 

Ecrire « Entrez b : » 

Lireb 

Ecrire « Entrez c : » 

Lire c 

Si a <> Alors 

Delta <- (b*b) - (4 * a * c) 
Ecrire « Delta est : », Delta 
Si Delta = Alors 

Xi <- -Jb /(2 * a; 
Ecrire « Xi est : », Xi 
Sinon Si Delta > Alors 

Xi <- ( r-Jb; + (VDelta ;;/(2 * a; 
X 2 <- ( (-Jb; - (VDelta ))/(2 * a) 
Ecrire « Xi est : », Xi 
Ecrire « X 2 est : », X 2 
FIN Si 
Sinon 
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Si b = Alors 
Si c = Alors 

Ecrire « La solution est R » 
Sinon 

Ecrire « Pas de solution » 
FIN Si 
Sinon 

Xi < c/b 

Ecrire « Xi est : », Xi 
FIN Si 
FIN Si 
FIN 

10. Le programme est : 
Variables S, a : Reel 
DEBUT 

Ecrire « Entrez la somme d'argent : » 

Lire S 

Si S >= 200 Alors 

a <- S \ 200 

S <- S Mod 200 

Ecrire « Le nombre de billets de 200 DH est : », a 
FJN Si 
Si S >= 100 Alors 

a <- S \ 100 

S <- S Mod 100 

Ecrire « Le nombre de billets de 100 DH est : », a 
FIN Si 
Si S >= 50 Alors 

a <- S \ 50 

S <- S Mod 50 

Ecrire « Le nombre de billets de 50 DH est : », a 
FJN Si 
Si S >= 20 Alors 

a <- S \ 20 

S <- S Mod 20 

Ecrire « Le nombre de billets de 20 DH est : », a 
FJN Si 
Si S >= 10 Alors 

a <- S \ 10 

S <- S Mod 10 

Ecrire « Le nombre de Piece de 10 DH est : », a 
FJN Si 
Si S >= 5 Alors 

a <- S \ 5 

S <- S Mod 5 

Ecrire « Le nombre de Piece de 5 DH est : », a 
FJN Si 
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Si S >= 2 Alors 

a «- S \ 2 

S <- SMod2 

Ecrire « Le nombre de Piece de 2 DH est : », 
FJW Si 
Si S >= 1 Alors 

a <- S \ 1 

S «- S Mod 1 

Ecrire « Le nombre de Piece de 1 DH est : », 
FJN Si 



FIN 



Les struciu 




fiJmtk 











1. Le programme est : 
Variables i , valeur : Entiers 
DEBUT 

Ecrire « Entrez un nombre : » 

Lire valeur 

POUR i = 1 A valeur 

Ecrire valeur & " X " & i & " = " & valeur * i 
FIN POUR 
FIN 

2. Le programme est : 

Variables i , valeur , somme : Entiers 
DEBUT 

Ecrire « Entrez un nombre : » 

Lire valeur 

somme <— 

POUR i = 1 A valeur 
somme <— somme + i 

FIN POUR 

Ecrire "La somme des " & valeur & " premiers entiers est : " & somme 
FIN 

3. Le programme est : 

Variables i , valeur , factoriel : Entiers 
DEBUT 

Ecrire « Entrez un nombre : » 

Lire valeur 

factoriel <— 1 

POUR i = 1 A valeur 
factoriel <— factoriel * i 
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FIN POUR 

Ecrire "Le factoriel de " & valeur & " est : " & factoriel 
Fin 

4. Le programme est : 

Variables i , a , max , pmax : Entiers 
DEBUT 

Ecrire « Entrez le nombre numero 1 » 
Lire a 
max <— a 
pmax <— 1 
POUR i = 2 A 20 

Ecrire « Entrez le nombre numero » , i 
Lire a 

SI a > max ALORS 
max <— a 
pmax <— i 
FIN SI 
FIN POUR 

Ecrire « Le plus grand nombre est : » , max 
Ecrire « Sa position est : » , pmax 
FIN 

5. Le programme est : 
Variables i , a , b , S : Entiers 
DEBUT 

Ecrire « Entrez un chiffre : » 

Lire a 

S^O 

POUR i = 1 A 20 

Ecrire « Entrez un nombre : » 

Lireb 

SI a = b ALORS 
S^S + 1 

FIN SI 
FIN POUR 

Ecrire « Le nombre de fois de saisie de » , a , « est : » , S 
FIN 

6. Le programme est : 
Variables N, i : Entiers 
Variables Y : Reel 
DEBUT 

Ecrire « Entrez N : » 

LireN 

Si N >= 20 Alors 

Y <- (N 10 ) 
Sinon 

Y <-l 

POUR i = 1 A N 
Y ^Y*i 

FIN POUR 

FIN Si 
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Ecrire «La valeur de Y est : », Y 
FIN 

7. Le programme est : 
Variables n, s, i : Entiers 
DEBUT 

Ecrire « Entrez un nombre : » 

Lire n 

POUR i = 1 A n - 1 

Si nMod i = Alors 
s <— s + i 

FIN Si 
FIN POUR 
Si s = n Alors 

Ecrire " par fait " 
Sinon 

Ecrire " Pas par fait " 
FIN Si 
FIN 

8. Le programme est : 

12. Variables P, i, R : Entiers 
Variables Test : Boolean 
DEBUT 

Test <— vrai 

Ecrire « Entrez P : » 

LireP 

Si P = Alors 

Ecrire « Pas premier » 
FIN Si 
Si P = 1 Ou P = 2 Alors 

Ecrire « Premier » 
FIN Si 
Si P >= 3 Alors 

POUR i = 2 A P - 1 
R <- PModi 
Si R = Alors 

Test ^Faux 
FIN Si 
FIN POUR 
Si Test = Faux Alors 

Ecrire « Pas premier » 
Sinon 

Ecrire « Premier » 
FIN Si 
FIN Si 
FIN 
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1. Le programme est : 
Variable a : Reel 
Debut 

Ecrire « Entrez un nombre compris entre 1 et 3 : » 

Lire a 

Tant Que a < 1 OU a > 3 

Ecrire « Veuillez Saisir une valeur comprise entre 1 et 3 » 

Lire a 
Fin Tant Que 
Fin 

2. Le programme est : 
Variable a : Reel 
Debut 

Ecrire « Entrez un nombre compris entre 10 et 20 : » 
Lire a 

Tant Que a < 10 OU a > 20 
Sia<10Alors 

Ecrire « Plus grand ! » 
Sinon 

Ecrire « Plus petit ! » 
Fin Si 

Ecrire « Veuillez Saisir une valeur comprise entre 10 et 20 : 
Lire a 
Fin Tant Que 
Fin 

3. Le programme est : 
Variable a , i : Reel 
Debut 

Ecrire « Entrez un nombre » 
Lire a 
i^a+ 1 

Tant Que i < = a + 10 
Ecrire i 

Fin Tant Que 
Fin 

4. Le programme est : 

Variables i , a , max , pmax : Entiers 
DEBUT 

Ecrire « Entrez le nombre numero 1 » 

Lire a 

max <— a 

pmax <— 1 

i<- 1 
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TANT QUE a <> 

i<-i+l 

Ecrire « Entrez le nombre numero » , i 

Lire a 

SI a > max ALORS 
max <— a 
pmax <— i 

FIN SI 
FIN TANT QUE 

Ecrire « Le plus grand nombre est : » , max 
Ecrire « Sa position est : » , pmax 



FIN 



5. Le programme est : 

Variables prixlu , mdu , mpaye , reste : Entiers 

DEBUT 

Ecrire « Entrez le prix » 

Lire prixlu 

mdu <— 

mdu <— mdu + prixlu 

TANT QUE prixlu <> 
Ecrire « Entrez le prix » 
Lire prixlu 
mdu <— mdu + prixlu 

FIN TANT QUE 

Ecrire « Entrez le prix paye» 

Lire mpaye 

reste <— mpaye - mdu 

Ecrire « Le reste est : » , reste 
FIN 









1. le programme est : 
Variables a , compteur : Entiers 
Variable reponse : Chaine 
DEBUT 

compteur <— 
REPETER 

Ecrire « Entrez un nombre : » 
Lire a 

compteur <— compteur + 1 
Ecrire « Voulez-vous continuez Oui/Non ? » 
Lire reponse 
JUSQU'A reponse = « N » ou reponse = « n » 
Ecrire « Le nombre de valeurs saisies est : » , compteur 
FIN 

2. Le programme est : 
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Variables a , somme , moyenne , compteur : Entiers 
DEBUT 

compteur <— 
somme <— 
REPETER 

Ecrire « Entrez un nombre : » 

Lire a 

compteur <— compteur + 1 

somme <— somme + a 
JUSQUA a = 

Moyenne <— somme / (compteur - 1) 
Ecrire « La moyenne de valeurs saisies est : » , moyenne 
FIN 

3. le programme est : 
Variables a , npos , nneg : Entiers 
Variable reponse : Chaine 
DEBUT 

npos <— 
nneg <— 
REPETER 

Ecrire « Entrez un nombre : » 

Lire a 

SI a > ALORS 

npos <— npos + 1 
SINON 

SI a < ALORS 

nneg <— nneg + 1 
FIN SI 
FIN SI 

Ecrire « Voulez-vous continuez Oui/Non ? » 
Lire reponse 
JUSQU'A reponse = « N » ou reponse = « n » 
Ecrire « Le nombre de valeurs positives saisies est : » , npos 
Ecrire « Le nombre de valeurs negatives saisies est : » , nneg 
FIN 

4. Le programme est : 

Variables caractere , phrase : Chaines 
DEBUT 

phrase <— « » 
REPETER 

Ecrire « Entrez une caractere : » 

Lire caractere 

SI caractere = « » ALORS 

caractere <— « » 
FIN SI 

phrase <— phrase +caractere 
JUSQU'A caractere = « . » 
Ecrire « La phrase resultante est : » , phrase 
FIN 
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Ante* 



1. La representation graphique du tableau X (4) apres execution du premier programme est : 



12 5 8 20 



La representation graphique du tableau voyelle (6) apres execution du deuxieme programme est 



a 


e 


i 





u 


y 



2. L' execution du programme nous affichera successivement a l'ecran : 

4 25 9 100 16 4 

3. L' execution du programme nous affichera successivement a l'ecran : 

1 1 2 3 5 8 13 21 

4. Le programme est: 
Variables i , somme : ENTIERS 
Tableau T (19) : ENTIER 
DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A 19 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
somme <— 
POUR i = A 19 

somme <— somme + T (i) 
FIN POUR 

Ecrire « La somme de tous les elements du tableau est : » , somme 
FIN 

5. Le programme est : 
Variables i , max, n : ENTIERS 
Tableau T (n) : ENTIER 
DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
max <- T (0) 
i^0 
REPETER 

i<-i+l 
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SI T (i) > max ALORS 

max <— T (i) 
FIN SI 
JUSUQ'A i = (N - 1) 

Ecrire «Le plus grand element est : » , max 
FIN 

6. Le programme est : 

Variables i , somme , moyenne , nsup : Reels 

Tableau Note (99) : Reel 

DEBUT 

POUR i = A 99 

Ecrire « Entrez l'element » , i 
Lire T(i) 
FIN POUR 
somme <— 
POUR i = A 99 
Lire Note (i) 

somme <— somme + Note (i) 
FIN POUR 

Moyenne <— somme / 100 
nsup <— 
POUR i = A 99 

SI Note (i) > moyenne ALORS 

nsup <— nsup + 1 
FIN SI 
FIN POUR 

Ecrire « Le nombre de notes superieures a la moyenne est : » , nsup 
FIN 

7. Le programme est : 

Variables i , pmax , pmin, Min, Max, n : Entiers 

Tableau T (n) : Reel 

DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 
FIN POUR 
max <- T (0) 
min <- T (0) 
pmax <— 1 
pmin <— 1 
i^0 

REPETER 
i<-i+l 
SI T (i) > max ALORS 

pmax <— i 
FIN SI 
SI T (i) < min ALORS 

pmin <— i 
FIN SI 
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JUSUQ'A i = (N - 1) 

Ecrire « La position du plus grand element du tableau est : » , pmax 
Ecrire « La position du plus petit element du tableau est : » , pmin 
FIN 

8. Le programme est : 
Variables X ,i,Compt : Reels 
Variable N :ENTIER 
Tableau T (N) : Reel 
DEBUT 

Ecrire « Entrez le nombre X : » 

LireX 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
Compt<- 
POUR i = A N - 1 

SI T (i) =X ALORS 
Compt <— compt + 1 

FIN SI 
FIN POUR 

Ecrire « Le nombre d' occurrences de cet elements du tableau est : » , compt 
FIN 

9. Le programme est : 

Variables i , n, nbP,nbImp : Entiers 

Tableau T (n) : Entier 

DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 
FIN POUR 
nblmp <— 
nbP^O 
POUR i = A n - 1 

Si T(i) MOD 2 = Alors 

nbP <- nbP + 1 
Sinon 

nblmp <— nblmp + 1 
FIN Si 
FIN POUR 

Ecrire "Le nombre d' entiers impairs est: " , nblmp 
Ecrire "Le nombre d' entiers pairs est : " , nbP 
FIN 

10. Le programme est : 
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Variables i , n, nbPos, nbNeg, Vmoy_Pos, Vmoy_Neg, nbNull: Entiers 

Variables Som_Pos, Som_Neg : Entiers 

Tableau T (n) : Entier 

DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

nbPos <— 
nbNeg <— 

Vmoy_Pos < — 
Vmoy_Neg < — 
nbNull <— 
Som_Pos <— 
Som_Neg <— 

POUR i = A n - 1 

Si t(i) = Alors 

nbNull <— nbNull + 1 
SinonSi t (l) > Alors 
nbPos < — nbPos + 1 
Som_Pos < — Som_Pos + t (i) 
Sinon 

nbNeg < — nbNeg + 1 
Som_Neg ^- Som_Neg + t (1) 
FIN Si 
FIN POUR 

Vmoy_Pos < — Som_Pos / nbPos 
Vmoy_Neg < — Som_Neg / nbNeg 

Ecrire "Le nombre d' elements nuls est : " , nbNull 
Ecrire "La valeur moyenne des elements positifs est : " , Vmoy_Pos 
Ecrire "La valeur moyenne des elements negatifs est : " , Vmoy_Neg 
FIN 

11. Le programme est : 

Variables i , note , nnote , snote , smoyenne , cmoyenne : Entiers 

Tableau moy (25) : Reel 

DEBUT 

POUR i = 1 A 25 
snote <— 
nnote <— 
REPETER 

Ecrire « Notes de l'eleve numero » , i 
Lire note 

SI note <>-l ALORS 
snote <— snote + note 
nnote <— nnote + 1 
FIN SI 
JUSQU'A note = -1 
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moy (i) = snote / nnote 
smoyenne = smoyenne + moy (i) 

FIN POUR 

Ecrire « Moyennes » 

POUR i = 1 A 25 

Ecrire « Eleve numero » , i , « : » , moy (i) 

FIN POUR 

cmoyenne = smoyenne / 25 

Ecrire « Moyenne de la classe : » , cmoyenne 



FIN 





fc\ 



1. Le programme est : 
Variables i , n : Entiers 
Tableau T(n), Tinvers(n) : Entier 
DEBUT 

Ecrire « Entrez la taille du Tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

POUR i = A n - 1 

Tinvers(i) <— T(n - i - 1) 
FIN POUR 

POUR i = A n - 1 
Ecrire Tinves(i) 
FIN POUR 
FIN 

2. Le programme est : 

Variables i , n, elt, pos, Temp : Entiers 

Tableau T(n) : Entier 

DEBUT 

Ecrire « Entrez la taille du Tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 

FIN POUR 

n^n+ 1 

Ecrire « Entrez l'element a ajouter : » 

Lire elt 

Ecrire « Entrez sa position : » 

Lire pos 

POUR i = pos A n - 1 
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Temp <— T(i) 

T(i) «- elt 

elt <— Temp 
FIN POUR 
POUR i = A n - 1 

Ecrire T(i) 
FIN POUR 
FIN 

3. Le programme est : 

Variables i , j, n, elt, Temp : Entiers 

Tableau T(n) : Entier 

DEBUT 

Ecrire « Entrez la taille du Tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 
FIN POUR 
n^n+ 1 

Ecrire « Entrez l'element a ajouter : » 
Lire elt 
T(n-l)«-ell 

POURi = n-l Alpas-1 
POURj=l Ai 

Si T(j - 1) > T(j) Alors 
Temp < — T(j - 1) 
T(j-1) <-T(j) 
T(i) <— Temp 
FIN Si 
FIN POUR 
FIN POUR 
POUR i = A n - 1 

Ecrire T(i) 
FIN POUR 
FIN 

4. Le programme est : 

Variables i , n, elt, Temp : Entiers 

Tableau T(n) : Entier 

DEBUT 

Ecrire « Entrez la taille du Tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 

FIN POUR 

Ecrire « Entrez l'element a supprimer : » 

Lire elt 

POUR i = A n - 1 
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Si elt = T(i) Alors 

pos <— i 
FIN Si 
FIN POUR 
POUR i = pos A n - 1 

T(i) = T(i+l) 
FIN POUR 
POURi=0A n-2 

Ecrire T(i) 
FIN POUR 
FIN 

5. Le programme est : 
Variables i , n, j: Entiers 

Tableau Tcal(n+1), Taff(n+1) : Entier 
DEBUT 

Ecrire « Entrez la puissance : » 
Lire n 
i<- 1 

Tcal(0) <- 1 
Tcal(l) <- 1 

Ecrire Tcal(0) , " " , Tcal(l) 
i<-i+l 

TANT QUE i < n 
Taff(0) <- 1 
POURj=l Ai 

Taff(j) <- Tcal(j) + Tcal(j - 1) 
FIN POUR 
POURj=0Ai 
Ecrire Taff(i) 
FIN POUR 
POURj=l Ai 

Tcal(j) <- Taff(j) 
FIN POUR 
i<-i+l 
FIN TANT QUE 
FIN 

6. Le programme est : 
Variables i , n, c: Entiers 
Tableau T (n), Taff(n) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

c<-0 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
POUR i = A n - 1 
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Si T(i) MOD 2 = Alors 
Taff( c ) «- T(i) 
c <— c+ 1 
FIN Si 
FIN POUR 
POUR i = A n - 1 

Si T(i) MOD 2 <> Alors 
Taff( c ) <- T(i) 
c <— c+ 1 
FIN Si 
FIN POUR 
POURj = 0An- 1 

Ecrire Taff(i) 
FIN POUR 
FIN 

7. Le programme est : 
Variables i , n, s : Entiers 
Tableau U(n), V(n) : Entier 
DEBUT 

s<-0 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 

Lire U(i) 
FIN POUR 
POUR i = A n - 1 

Ecrire « Entrez l'element » , i 

Lire V(i) 
FIN POUR 
POUR i = A n - 1 

s <— s + U(i) * V(i) 

FIN POUR 

Ecrire "La somme est: " , s 
FIN 

8. Le programme est : 

Variables i , n, c, pos, max : Entiers 

Tableau T (n) : Entier 

DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

c<-l 

max <— 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 

FIN POUR 

POUR i = 1 A n - 1 
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Si T(i) =T(i-l)Alors 
c <— c+ 1 
Sinon 

c<-l 
FIN Si 
Si c> max Alors 
max <— c 
pos <— i - c + 2 
FIN Si 
FIN POUR 

Ecrire " Le plus long plateau commence a l'indice ", pos , " et il est de longueur ", 
max 
FIN 

9. Le programme a est : 
Variables i , n, j, Temp : Entiers 
Tableau T (n) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 
FIN POUR 

POURi = n- 1 Alpas-1 
POURj=l Ai 

Si T(j - 1) > T(j) Alors 
Temp < — T(j - 1) 

T(j-1) <-TG) 
T(i) <— Temp 
FIN Si 
FIN POUR 
FIN POUR 
POUR i = A n - 1 

Ecrire T(i) 
FIN POUR 
FIN 

Le programme b est : 

Variables i , n, m, j, Temp : Entiers 

Tableau T (n) : Entier 

DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 
FIN POUR 
POURi = A n-2 
m<— i 



Page 46 marouan.ts@gmail.fr 



ALGORITHMIQUE [2009 

POURj=i+l A n- 1 
SiT(j) < T(m)Alors 
Temp <— T(m) 
T(m) <-T® 
T(j) <- Temp 
m <— i 
FIN Si 
FIN POUR 
FIN POUR 
POUR i = A n - 1 

Ecrire T(i) 
FIN POUR 
FIN 

Le programme c est : 
Variables i , n, elt, j : Entiers 
Tableau T (n) : Entier 
DEBUT 

Ecrire « Entrez la taille de tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 
FIN POUR 
POUR i = 1 A n - 1 
elt <- T(i) 

j «-i 

TANT QUE T(j - 1) > elt et j > 
T(j) <- TO - 1) 

Si j = Alors 

Stop TANT QUE 
FIN Si 
FIN TANT QUE 

TO) <- elt 
FIN POUR 
POUR i = A n - 1 

Ecrire T(i) 
FIN POUR 
FIN 

10. Variables i, n, V: Entiers 
Tableau T (n) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 
FIN POUR 
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V «- T(n - 1) 

Ecrire " La valeur du dernier entier est : " , V 
FIN 

11. Variables i, n, x, D, Min: Entiers 
Tableau T (n), Td (x) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T(i) 
FIN POUR 
x <— x- 1 

Ecrire " Entrez D : " 
LireD 

POUR i = A n - 1 
Si T(i) > D Alors 
x<— x+ 1 

Redimensionne Td(x) 
Td(x)<-T(i) 
FINSI 
FIN POUR 
Min^- Td(0) 

POUR i = A TdXength - 1 
Si Td(i) < Min Alors 

Min^- Td(i) 
FINSI 
FIN POUR 

Ecrire " La petite duree superieur a D est : " Min 
FIN 

12. Variables i , n,: Entiers 
Tableau Test : Boolean 
DEBUT 

Ecrire « Entrez la taille du tableau : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
POUR i = A n - 1 

Si T(i) < Alors 
Test ^- Faux 

FINSI 
FIN POUR 
Si Test = Vrai Alors 

Ecrire " la sequence comporte que des entiers positifs." 
SINON 

Ecrire " la sequence comporte des entiers positifs et negatifs." 
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FINSI 
FIN 

13. Variables i , n, m, Temp, j, c, s : Entiers 
Entiers Tl(n), T2(m), T(s) : Variables 
DEBUT 

Ecrire « Entrez la taille du tableau 1 : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire Tl(i) 
FIN POUR 
c^- 

Ecrire « Entrez la taille du tableau 2 : » 
Lire m 
POURi = 0Am-l 

Ecrire « Entrez l'element » , i 
Lire T2(i) 
FIN POUR 
s <— m + n 
POUR i = A n - 1 

T(i) <- Tl(i) 
FIN POUR 
POUR i = n A s 
T(i) <- T2(c) 
c <— c+ 1 
FIN POUR 

POURi=s-l Alpas-1 
POURj=l Ai 

Si T(j - 1) > T(j) Alors 
Temp <— T(j - 1) 
T(j-1) <-T(j) 
T(i) <— Temp 
FIN Si 
FIN POUR 
FIN POUR 
POUR i = A s - 1 

Ecrire T(i) 
FIN POUR 
FIN 

14. Variables i , j, c, n : Entiers 
Variables T(n) : Entiers 
Variables ch : chaine de caractere 
DEBUT 

Ecrire « Entrez la taille du tableau 1 : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 
Lire T (i) 
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FIN POUR 
POUR i = A n - 1 
ch «- T(i) 
c<- 
POUR j = A ch.Length - 1 

Si ch(j) = " a " ou ch(j) = "A" Alors 

c <— c+ 1 
FIN Si 
FIN POUR 
Si c>= 3 Alors 

Ecrire T(i) 
FINSI 
FIN POUR 
FIN 

15. Variables i , c : Entiers 
Variables ch, s : chaine de caractere 
DEBUT 

Ecrire « Entrez la chaine: » 
Lire ch 
s<- ch(0) 
c<- 

POUR i = 1 A ch.Length - 1 
Si ch(i) = " " Alors 

Si sh(i+ 1) <>s Alors 

c <— c + 1 
End If 
End If 
FIN POUR 
Si c = Alors 

Ecrire" Le texte est un tautogramme " 
SINON 

Ecrire" Le texte n'est pas un tautogramme " 
FINSI 
FIN 

16. Variables i, j, n, s, c, m : Entiers 

Tableau T (c) ,Tl(n),T2(m) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau Tl : » 

Lire n 

POUR i = A n - 1 

Ecrire « Entrez l'element » , i 

Lire Tl(i) 
FIN POUR 

Ecrire « Entrez la taille du tableau T2 : » 
Lire m 
POURi = 0Am-l 

Ecrire « Entrez l'element » , i 

Lire T2(i) 

Page 50 marouan.ts@gmail.fr 



ALGORITHMIQUE 2009 



FIN POUR 

POUR i = A n - 1 
POURj = 0Am-l 

Si T1(S) = T2(j) Alors 
T (c) = Tl (s) 
C<- C+l 

Redimensionne T ( c) 
FIN Si 
FIN POUR 
S<- S + l 
FIN POUR 
POUR i = A C - 1 

Ecrire T (i) 
FIN POUR 
FIN 

17. Variables a, b, i, j, x, y, z, PGDC : Entiers 
Variables Tl(x), T2(y), T(z): Entiers 
DEBUT 

Ecrire « Entrez a : » 

Lire a 

Ecrire « Entrez b : » 

Lireb 

y^O 
z^O 
POUR i = 1 A a 

Si a Mod i = Alors 
Redimensionne Tl(x) 
Tl(x) <- i 
x <— x+ 1 
FIN Si 
FIN POUR 
POUR i = 1 A b 

Si b Mod i = Alors 
Redimensionne T2(y) 
T2(y) <r- i 

y <- y+i 

FIN Si 
FIN POUR 
POUR i = A x - 2 

POURj=0Ay-2 

Si Tl(i) = T2(j) Alors 
Redimensionne T ( z) 

T (z) = Tl (i) 

z<— z+ 1 
FIN Si 
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FIN POUR 
FIN POUR 

PGDC «- T(0) 
POUR i = A T.Length - 1 
Si T(i) > PGDC Alors 

PGDC <- T(i) 
FJW Si 
FIN POUR 

Ecrire «le plus grand diviseur cornmun est : » , PGDC 
FIN 




Ld&M^dimensions : 




«1 ^ - \ N H * 



:jji22:^> 



1. Le programme est : 
Variables i , j, n, m, Som : Entiers 
Tableau T (n , m) : Reel 
DEBUT 

Som<— 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POURi=0An-l 
POURj = 0Am-l 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = A n - 1 
POURj = 0Am-l 

Som <— Som + T(i, j) 
FIN POUR 
FIN POUR 

Ecrire «La somme est : » , Som 
FIN 

2. Le programme est : 
Variables i , j, n, m, Som : Entiers 
Tableau T (n , m) : Reel 
DEBUT 

Som<— 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POUR i = A n - 1 
POURj = 0Am-l 
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Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = A n - 1 
Som<— 
POURj = 0Am-l 

Som <— Som + T(i, j) 
FIN POUR 

Ecrire "La somme de " , i , " ligne est : " , Som 
FIN POUR 
FIN 

3. Le programme est : 
Variables i , j, n, Som : Entiers 
Tableau T (n , n) : Reel 
DEBUT 

Som<— 

Ecrire « Entrez le nombre de ligne et colonne : » 
Lire n 

POUR i = A n - 1 
POURj=0An-l 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = A n - 1 

Som <— Som + T(i, i) 
FIN POUR 

Ecrire " La somme des elements de la diagonale est : " , Som 
FIN 

4. Le programme est : 
Variables i , j, n, m, Pro : Entiers 
Tableau T (n , m) : Reel 
DEBUT 

Pro-*- 1 

Ecrire « Entrez le nombre de ligne : » 

Lire n 

Ecrire « Entrez le nombre de colonne : » 

Lire m 

POUR i = A n - 1 

POURj = 0Am-l 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 

FIN POUR 
FIN POUR 
POUR i = A n - 1 

POURj = 0Am-l 
Pro <— Pro * T(i, j) 

FIN POUR 
FIN POUR 
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Ecrire «Le produit est : » , Pro 
FIN 

5. Le programme est : 
Variables i , j, n, m, S : Entiers 

Tableau T (n , m), V (m, 1) , P (m, 1) : Reel 
DEBUT 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POURi=0An-l 
POURj = 0Am-l 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = A m - 1 

Ecrire « Entrez l'element » , i, " ; " 1 
Lire V(i, 0) 
FIN POUR 
POUR i = A n - 1 

POURj = 0Am-l 

S <- S + (T(l, j) * V(j, 0)) 
FIN POUR 
P(i, 0) <- s 
FIN POUR 
POUR i = A n - 1 
Ecrire P(i, 0) 
FIN POUR 
FIN 

6. Le programme est : 
Variables i , j, n, m : Entiers 
Tableau T (n , m), V (n, m) , P (n, m) : Reel 
DEBUT 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POUR i = A n - 1 
POURj = 0Am-l 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = A n - 1 
POURj = 0Am-l 

Ecrire « Entrez l'element » , i, " ; " j 
LireV(iJ) 
FIN POUR 
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FIN POUR 
POUR i = A n - 1 
POURj = 0Am-l 

P(i, j) ^(T(i, j) * V(i, j)) 

FIN POUR 
FIN POUR 
POUR i = A n - 1 

POURj = 0Am-l 
Ecrire P(i, j) 

FIN POUR 
FIN POUR 



FIN 



7. Le programme est : 
Variables i , j, n, m, C: Entiers 
Tableau T (n , m) : Reel 
DEBUT 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POUR i = A n - 1 
POURj = 0Am-l 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = A n - 1 
POURj = 0Am-l 

Si T(i, j) <> T(j, i) Alors 

C^- C + l 
FIN Si 
FIN POUR 
FIN POUR 
Si (C <> 0) OU (n <> m) Alors 

Ecrire "Pas caree et symetrique" 
Sinon 

Ecrire "Caree et symetrique" 
FIN Si 
FIN 

8. Le programme est : 
Variables i , j : Entiers 
Tableau T (10 , 10) : Reel 
DEBUT 

POUR i = A 10 
POURj = 0A10 

T(i,j)<-i * j 
FIN POUR 
FIN POUR 
POUR i = A 10 
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POURj = 0A10 

Ecrire T(i,j) 
FIN POUR 
FIN POUR 
FIN 

9. Le programme est : 

Variables n, m, i, j, Pi_Min, Pj_Min, Pi_Max, Pj_Max, Max, Min : Entiers 

Tableau T (n , m) : Reel 

DEBUT 

Pi_Max <— 
Pj_Max <— 
Pi_Min <— 
Pj_M±n <— 
Max = t(0, 0) 
Min = t(0, 0) 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POURi=0An-l 
POURj = 0Am-l 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = A n - 1 
POURj = 0Am-l 

Si t (i, j) > Max Alors 



Max <r 


- t(i, j) 


Pi_Max <■ 


— i 


Pj_Max <r 


~ J 


FIN Si 




Si t(i, j) 


< Min Alors 


Min <■ 


- t(i, j) 


Pi_Min < 


— i 


Pj_Min <r 


~ J 



FIN Si 
FIN POUR 
FIN POUR 

Ecrire " le plus grand element est : " , Max 

Ecrire " sa postion est : ", "T (",Pi_Max, " ; ", Pj_Max, ")") 
Ecrire " le petit element est : " , Min 
Ecrire " sa postion est : ", "T (",Pi_Min, " ; ", Pj_Min, ") ") 



FIN 



10. Le programme est : 
Variables i , j, P : Entiers 
Tableau T (P ,P) : Reel 
DEBUT 

Ecrire « Entrez la puissance : » 

Lirep 
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T(0, 0) «- 1 
Tl, 0)<-l 
T(l,l)<-1 
POUR i = 2 A n 

POURj=0Ai 

T(i,j)«- t(l - 1, j) + t(i - 1, ± - j) 

FIN POUR 
FIN POUR 
POUR i = A n 

POURj=0Ai 

Ecrire T(i,j) 

FIN POUR 
FIN POUR 



FIN 



11. Le programme est : 

Variables n, i, j, c, cl, s, si, Cmpt : Entiers 

Tableau T (n , n) : Reel 

DEBUT 

Cmt<- 

Ecrire « Entrez le nombre de ligne et colonne? : » 
Lire n 

POUR i = A n - 1 
POURj=0An-l 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
si <- 
cl <- 
POURj=0An-l 

si <- si + t(j, j) 
cl <— cl + t(j, n - 1 - j) 
FIN POUR 
Si SI = cl Alors 

Cmpt^- Cmpt + 2 
FIN Si 

POURi=0An-l 
s <- 
c <- 

POURj=0An-l 
s <- s -/- t(i, j; 

c <^ c + t(j, i) 
FIN POUR 

Si (s = c) And (s = si) Alors 

Cmpt^- Cmpt + 2 
FIN Si 
FIN POUR 
Si Cmpt = (n * 2) + 2 Alors 

Ecrire "Carre magique " 
Sinon 

Ecrire "Carre pas magique " 
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FIN Si 
FIN 

12. Le programme est : 
Variables i,j,L,C,x,y: Entiers 

Tableaux M(L , C) , V(L * C) : chaine de caractere 
DEBUT 

x^O 

y^L*C 

Ecrire « Entrez L : » 

LireL 

Ecrire « Entrez C : » 

LireC 

TANT QUE (L > 10 Ou C > 10) Ou (L < Ou C < 0) 

Ecrire «SVP, L et C doivent etre compris entre let 10» 
Ecrire « Entrez L : » 
LireL 

Ecrire « Entrez C : » 
LireC 
FIN TANT QUE 
POUR i = A L - 1 
POURj = 0AC-l 

Ecrire "M( ' , i+ 1 , " ; " , j + 1 , ") = " 
Lire M(i , j) 
FIN POUR 
FIN POUR 
POUR i = A L - 1 
POURj = 0AC-l 
V(x) ^ M(i , j) 
X <— x+ 1 
FIN POUR 
FIN POUR 
POUR i = A y - 1 

Ecrire V( i ) 
FIN POUR 
FIN 

13. Le programme est : 
Variables i , j , N , M : Entiers 

Tableaux tA(N , M) , A(M , N) : chaine de caractere 
DEBUT 

Ecrire « Entrez N : » 
LireN 

Ecrire « Entrez M : » 
LireM 

POUR i = A N - 1 
POURj = 0AM-l 

Ecrire "tA(", i+ 1 , " ; " , j + 1 , ") = " 
Lire tA(i , j) 
FIN POUR 
FIN POUR 
POUR i = A N - 1 
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POURj = 0AM-l 

A(j , i) <- tA(i , j) 
FIN POUR 
FIN POUR 
POUR i = A M - 1 
POURj = 0AN-l 

Ecrire A(i , j) 
FIN POUR 
Ecrire " " 
FIN POUR 
FIN 

14. Le programme est : 

Variables i , j , N , M : Entiers 

Tableaux A(N , M) , B(N , M) , A_B(N , M) : chaine de caractere 

DEBUT 

Ecrire « Entrez N : » 
LireN 

Ecrire « Entrez M : » 
LireM 

POUR i = A N - 1 
POURj = 0AM-l 

Ecrire "A(", i+ 1 , " ; " , j + 1 , ") = " 
Lire A(i , j) 
FIN POUR 
FIN POUR 
POUR i = A N - 1 
POURj = 0AM-l 

Ecrire "B(", i+ 1 , " ; " , j + 1 , ") = " 
Lire B(i , j) 
FIN POUR 
FIN POUR 
POUR i = A N - 1 
POURj = 0AM-l 

A_B(i , j) ^ A(i , j) , " + " , B(i , j) 
FIN POUR 
FIN POUR 
POUR i = A N - 1 
POURj = 0AM-l 
Ecrire A_B(i , j) 
FIN POUR 
Ecrire " " 
FIN POUR 
FIN 
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\ 



x^S jj.^ ^ 



1. Le programme est : 
Variables i , P , S : Entiers 
DEBUT 

Ecrire « Entrez la puissance : » 

LireP 

POUR i = 1 A P 

S^S + (3 i_1 ) 



FIN POUR 

Ecrire "S est: ",S 



FIN 



2. Le programme est : 
Variables i ,x, P , S : Entiers 
DEBUT 

Ecrire « Entrez la puissance : » 

LireP 

Ecrire « Entrez la valeur de X : » 

LireX 

POUR i = A P 

S^S+ (x (2ti >) 
FIN POUR 
Ecrire "S est: ",S 
FIN 

3. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

Ecrire « Entrez la valeur de N : » 

LireN 

POUR i = 1 A N 

S <- S + (1/1) 
FIN POUR 
Ecrire " S est : " , S 
FIN 

4. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S^l 

Ecrire « Entrez la valeur de N : » 

LireN 

POUR i = 1 A N 

Sf-S + (1 / (2*1)) 
FIN POUR 
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Ecrire "S est: ",S 
FIN 

5. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S<-1 

Ecrire « Entrez la valeur de N : » 

LireN 

POUR i = 1 A N 

S^S - (1 / (2 * i)) + (1 / (2 * i + 1)) 
FIN POUR 
Ecrire "S est: ",S 
FIN 

6. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

Ecrire « Entrez la valeur de N : » 

LireN 

POUR i = A N 

S<-S ■/■ (1 / (1 + 1)) 
FIN POUR 
Ecrire "S est: ",S 
FIN 

7. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S^l 

Ecrire « Entrez la valeur de N : » 

LireN 

POUR i = 1 A N 

S^S - (1 / (3 * i)) + (1 / (3 * i + 1)) 
FIN POUR 
Ecrire "S est : " , S 
FIN 

8. Le programme est : 
Variables i , N ,X , S : Entiers 
DEBUT 

Ecrire « Entrez la valeur de X : » 

LireX 

Ecrire « Entrez la valeur de N : » 

LireN 

POUR i = A N 

S <- S + ((X)< 2 * i + 1> )/ (2 * i + 1) 
FIN POUR 
Ecrire "S est: ",S 
FIN 
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9. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S<-1 

Ecrire « Entrez la valeur de N : » 

LireN 

POUR i = 1 A N 

S <- (3 * s + 5) 
FIN POUR 
Ecrire "S est: ",S 
FIN 

10. Le programme est : 
Variables i , N, X ,Y , S : Entiers 
DEBUT 

X<- 1/2 

Y<- 1 

Ecrire « Entrez la valeur de N : » 

LireN 

POUR i = 1 A N 

S <- (3 * y) - (5 * x) 

X^Y 

Y^S 
FIN POUR 
Ecrire "S est: ",S 
FIN 

11. Le programme est : 
Variables i , N, X , F : Entiers 
Variables e : reel 
DEBUT 

e<-l 
F<-1 

Ecrire « Entrez la valeur de X : » 

LireX 

Ecrire « Entrez la valeur de N : » 

LireN 

POUR i = 1 A N 

F^F * i 

e^ e + ((X L )/F) 
FIN POUR 
Ecrire " e" est : " , e 
FIN 

12. Le programme est : 
Variables i , X , F : Entiers 
Variables e , EPS : reel 
DEBUT 

e<-l 
F<-1 
i<- 1 
Ecrire « Entrez la valeur de X : » 
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LireX 

Ecrire « Entrez la valeur de EPS : » 

Lire EPS 

Repeter 

F^F * i 

e<- e + ((^)/F) 

i<-i +1 
Jusqu'a(e < EPS) 
Ecrire " e" est : " , e 



FIN 



13. Le programme est : 

Variables i , X , F , P , N, j, k, : Entiers 

Variables S : reel 

DEBUT 

S^O 

Ecrire « Entrez la valeur de X : » 
LireX 

Ecrire « Entrez la valeur de N : » 
LireN 

POUR i = OA N 
F<-1 
P^l 
POUR j = 1 A (4i+l) 

F^F * j 
FIN POUR 
POUR k = 1 A (4i + 3) 

P^P* k 
FIN POUR 

S <- S + ( (X« * f + 1) ) /F) - (X< 4 * i + 1> ) /P) 

FIN POUR 

Ecrire "S est: ",S 
FIN 
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l. 

Module Module 1 

Dim A, B As Integer 
Sub Main () 
A = 1 
B = A + 3 
A = 3 

Console. WriteLine ("La valeur des variables est 
& " ; B = " & B) 

Console . ReadLine () 
End Sub 
End Module 



" £ " A = " £ A 



Module Module 1 
Dim A, B, C 
Sub Main () 



As Integer 



+ B 



- A 



= 5 
= 3 
= A 
= 2 
= B 
Console 
& B 

Console . ReadLine () 
End Sub 
End Module 



A 
B 
C 
A 
C 



B = 



WriteLine ("La valeur des variables est 
& " ; C = " & C) 



f f & n A _ n & A 



Module Module 1 

Dim A, B As Integer 
Sub Main () 
A = 5 
B = A + 4 
A = A + 1 
B = A - 4 

Console. WriteLine ("La valeur des variables est 
& " ; B = " & B) 

Console . ReadLine () 
End Sub 
End Module 



" <S " A = " <S A 



Module Module 1 

Dim A, B, C As Integer 
Sub Main () 
A = 3 
B = 10 
C = A + B 
B = A + B 
A = C 
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Console. WriteLine ("La valeur des variables est : " & " A = " £ A 
& " ; B = " & B & " ; C = " & C) 

Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim A, B As Integer 
Sub Main () 
A = 5 
B = 2 
A = B 
B = A 

Console. WriteLine ( n La valeur des variables est : " & ,f A = ,f & A 
& " ; B = " & B) 

'Les deux dernieres instructions ne permettent done pas d' echanger les 
deux 'valeurs de B et A, 'puisque (1) 'une des deux valeurs (celle de A) 
'est ici ecrasee. 

'Si (1) 'on inverse les deux dernieres instructions , cela ne changera rien 
' du tout, hormis le fait que cette fois c r est la valeur de B qui sera 
'ecrasee . 
Console . ReadLine () 

End Sub 
End Module 

6. 

Module Module 1 

Dim A, B, C As Integer 
Sub Main () 
C = A 
A = B 
B = C 
'On est oblige de passer par une variable dite temporaire (la variable 
C) . 

Console . ReadLine () 
End Sub 
End Module 

i. 

Module Module 1 

Dim A, B, C, D As Integer 
Sub Main () 
D = C 
C = B 
B = A 
A = D 
'En fait, quel que soit le nombre de variables, une seule variable 
t empora ire su ffi t . 

Console . ReadLine () 
End Sub 
End Module 

8. 

Module Module 1 

Dim A, B, C As String 
Sub Main () 

A = "423" 
B = "12" 
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C = A + B 

Console. WriteLine (' l 'Result at est : " & C) 

'On peut concatener ces variables. A la fin de 1' algorithme, C 
vaudra done "42312". 

Console . ReadLine () 
End Sub 
End Module 

9. 

Module Module 1 

Dim A, B, C As String 
Sub Main () 

A = "423" 
B = "12" 
C = A & B 

Console. WriteLine ("Result at est : " & C) 

'On peut concatener ces variables. A la fin de 1 ' algorithme , C 
vaudra done "42312". 

Console . ReadLine () 
End Sub 
End Module 

^Les insim : 





**jjiitt'jii y r^b$^^ 



i. 

Module Module 1 

Dim Val, Double_ As Integer 
Sub Main () 

Val = 231 
Double_ = Val * 2 

Console. WriteLine ("Val est : " & Val) 
Console. WriteLine ("Double est : " & Double_) 
Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim A, B, Somme As Integer 
Sub Main () 

Console. Write ("Entrez le premier nombre :") 
A = Console .ReadLine 

Console .Write ("Entrez le deuxieme nombre :") 
B = Console .ReadLine 
Somme = A + B 

Console. WriteLine ("La somme de ces deux nombres est : " & Somme) 
Console . ReadLine () 
End Sub 
End Module 

3. 

Module Module 1 

Dim pht, ttva r pttc As Double 
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Dim nb As Integer 
Sub Main () 

Console. Write ("Entrez le prix hors taxes :") 

pht = Console . ReadLine 

Console. Write ("Entrez le nombre d' articles :") 

nb = Console . ReadLine 

Console. Write ("Entrez le taux de TVA :") 

ttva = Console . ReadLine 

pttc = nb * pht * (1 + ttva) 

Console .WriteLine ("Le prix toutes taxes est : " & pttc) 

Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim X, inverse As Double 
Sub Main () 

Console. Write ("Entrez une valeur :") 
X = Console .ReadLine 
inverse = 1 / X 

Console .WriteLine ("L f inverses est : " & inverse) 
Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim mat f phy, ang, fra, hg, moyenne As Double 
Sub Main () 

Console .Write ("Entrez la note de math :") 

mat = Console .ReadLine 

Console. Write ("Entrez la note de physique :") 

phy = Console .ReadLine 

Console .Write ("Entrez la note de frangais :") 

fra = Console .ReadLine 

Console .Write ("Entrez la note d f anglais :") 

ang = Console . ReadLine 

Console .Write ("Entrez la note d' histoire-Geo :") 

hg = Console . ReadLine 

moyenne = ((mat + phy) * 5 + fra * 4 + (ang + hg) * 2) /IB 

Console. WriteLine ("La moyenne est : " & moyenne) 

Console . ReadLine () 
End Sub 
End Module 



La strMji&alieinative : 








i. 
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Module Module 1 

Dim m, n As Integer 
Sub Main () 

Console. Write ("Entrez la valeur de m :") 

m = Console . ReadLine 

Console. Write ("Entrez la valeur de n :") 

n = Console . ReadLine 

If m * n > Then 

Console. Write ("Leur produit est positif") 
Else 

Console. Write ("Leur produit est negatif") 
End If 

Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim a, b, c As String 
Sub Main () 

Console. Write ("Entrez le premier nom :") 

a = Console . ReadLine 

Console .Write ("Entrez le deuxieme nom :") 

b = Console . ReadLine 

Console. Write ("Entrez le troisieme nom :") 

c = Console . ReadLine 

If a < b And b < c Then 

Console. Write ("Ces noms sont classes alphabet iquement") 
Else 

Console. Write ("Ces noms ne sont pas classes") 
End If 

Console . ReadLine () 
End Sub 
End Module 

3. 

Module Module 1 

Dim n As Integer 
Sub Main () 

Console. Write ("Entrez un nombre : ") 
n = Console . ReadLine 
If n < Then 

Console. Write ("Ce nombre est negatif") 
El self n = Then 

Console. Write ("Ce nombre est nuls") 
Else 

Console. Write ("Ce nombre est positif") 
End If 

Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim m, n As Integer 
Sub Main () 

Console. Write ("Entrezla valeur de m : ") 

m = Console .ReadLine 

Console .Write ("Entrezla valeur de n : ") 
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n = Console . ReadLine 
If m = Or n = Then 

Console. Write ("Le produit est nul") 
Elself (m < And n < 0) Or (m > And n > 0) Then 

Console. Write ("Le produit est positif") 
Else 

Console. Write ("Le produit est negatif") 
End If 

Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim Age As Integer 
Sub Main () 

Console. Write ("Entrez 1' age de 1' enfant : ") 
Age = Console . ReadLine 
If Age >= 12 Then 

Console . Write ( "Categorie Cadet ") 
Elself Age >= 10 Then 

Console . Write ( "Categorie Minime ") 
Elself Age >= 8 Then 

Console . Write ( "Categorie Pupille ") 
Elself Age >= 6 Then 

Console . Write ( "Categorie Poussin ") 
End If 

Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim montant r taux, remise As Double 
Sub Main () 

Console. Write ("Entrez le montant : ") 
montant = Console . ReadLine 
If montant < 2000 Then 

taux = 
Else 

If montant <= 5000 Then 

taux = 1 
Else 

taux = 2 
End If 
End If 

montant = montant * (1 - taux / 100) 
Console. Write ("Le montant net est : " & montant) 
Console . ReadLine () 
End Sub 
End Module 

i. 

Module Module 1 

Dim 5> D, M, SO, Res, a, b As Double 

Dim choix As Integer 

Sub Main () 

Console . WriteLine ( "1 : Somme 

") 
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Console . WriteLine ( "2 
Console . WriteLine ( "3 
Console . WriteLine ("4 
Console . WriteLine ( "5 



Difference 

Prodult 

Division 

Quitter 

Console. Write (" Taper votre cholx? 

cholx = Console . ReadLlne 
If cholx = 5 Then 

End 
End If 

Console. Write ("Entrez la valeur de a : ") 
a = Console . ReadLlne 

Console. Write ("Entrez la valeur de b : ") 
b = Console . ReadLlne 
Select Case cholx 
Case 1 

Res = a + b 

Console. Write ("La Somme est : " & Res) 
Case 2 

Res = a - b 

Console. Write ("La Difference est : " & Res) 
Case 3 

Res = a * b 

Console .Write ("Le Prodult est : " & Res) 
Case 4 

If b = Then 

Console . Write ( "a/0 est Impossible ") 
Else 

Res = a / b 

Console. Write ("La Division est : " & Res) 
End If 
Case Else 

Console . WriteLine ( "Erreur de cholx! ! ") 
End Select 
Console . ReadLlne () 
End Sub 
End Module 

8. 

Module Module 1 

Dim a, b, x As Double 
Sub Main () 

Console. Write ("Entrez la valeur de a : ") 

a = Console . ReadLlne 

Console. Write ("Entrez la valeur de b : ") 

b = Console . ReadLlne 

If a = Then 

If b = Then 

Console. WriteLine ("La solution est R") 
Else 

Console . WriteLine ( "Pas de solution ") 
End If 
Else 

x = -b / a 

Console. Write ("La solution est : " & x) 
End If 

Console . ReadLlne () 
End Sub 
End Module 
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Module Module 1 

Dim a, b, c As Integer 

Dim xl, x2, Delta As Double 

Sub Main () 

Console. Write ("Entrez la valeur de a : ") 

a = Console . ReadLine 

Console. Write ("Entrez la valeur de b : ") 

b = Console . ReadLine 

Console. Write ("Entrez la valeur de c : ") 

c = Console . ReadLine 

If a <> Then 

Delta = (b * b) - (4 * a * c) 
Console. WriteLine ("Delta = " & delta) 
If delta = Then 

xl = -b / 2 * a 
Elself Delta > Then 

xl = ((-b) + (Math. Sqrt (Delta))) / (2 * a) 
x2 = ((-b) - (Math. Sqrt (Delta))) / (2 * a) 
Console. WriteLine ("xl = " & xl) 
Console. WriteLine ("x2 = " & x2) 
End If 
Else 

If b = Then 

If c <> Then 

Console . WriteLine ( "Pas de solution ") 
Else 

Console. WriteLine ("La solution est R") 
End If 
Else 

xl = -c / b 

Console. WriteLine ("xl = " & xl) 
End If 
End If 

Console . ReadLine () 
End Sub 
End Module 

10. 

Module Module 1 

Dim a, s As Intege 
Sub Main () 

Console. Write ("Entrez la somme d' argent : ") 
s = Console . ReadLine 
If s >= 200 Then 

a = s \ 200 

s = s Mod 200 

Console. Write (a & " Billet de 200 DH. ") 
End If 
If s >= 100 Then 

a = s \ 100 

s = s Mod 100 

Console. Write (a & " Billet de 100 DH. ") 
End If 
If s >= 50 Then 

a = s \ 50 

s = s Mod 50 

Console. Write (a & " Billet de 50 DH. ") 
End If 
If s >= 20 Then 

a = s \ 20 



Page 72 marouan.ts@gmail.fr 



ALGORITHMIQUE 



2009 



s = s Mod 20 
Console . Write (a & 

End If 

If s >= 10 Then 
a = s \ 10 
s = s Mod 10 
Console . Write (a & 

End If 

If s >= 5 Then 
a = s \ 5 
s = s Mod 5 
Console . Write (a & 

End If 

If s >= 2 Then 
a = s \ 2 
s = s Mod 2 
Console . Write (a & 

End If 

If s >= 1 Then 
a = s \ 1 
s = s Mod 1 
Console . Write (a & 

End If 

Console . ReadLine () 
End Sub 
End Module 



Billet de 20 DH. ") 



Piece de 10 DH. ") 



Piece de 5 DH. ") 



Piece de 2 DH. ") 



Piece de 1 DH. ") 






• 4 • 
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l. 

Module Module 1 

Dim i, n As Integer 
Sub Main () 

Console. Write ("Entre la valeur de n : ") 
n = Console . ReadLine 
For i = 1 To 10 

Console. WriteLine (n & "x" & i & "=" & n * i) 
Next 

Console . ReadLine () 
End Sub 
End Module 



2. 

Module Module 1 

Dim i, n, Somme As Integer 
Sub Main () 

Console. Write ("Entre la valeur de n 
n = Console . ReadLine 
Somme = 



") 
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For i = 1 To n 

Somme = Somme + i 
Next 

Console. Write ("La somme est : " & Somme) 
Console . ReadLlne () 
End Sub 
End Module 

3. 

Module Module 1 

Dim 1, n, factor lei As Integer 
Sub Main () 

Console. Write ("Entre la valeur de n : ") 
n = Console . ReadLlne 
factoriel = 1 
For i = 1 To n 

factoriel = factoriel * i 
Next 

Console. Write ("Le factoriel de " & n & " est : " & factoriel) 
Console . ReadLlne () 
End Sub 
End Module 

4. 

Module Module 1 

Dim i, n, max f Pmax As Integer 
Sub Main () 

Console. Write ("Entrez le nombre numero 1 : ") 

n = Console . ReadLlne 

max = n 

Pmax = 1 

For i = 2 To 20 

Console. Write ("Entrez le nombre numero " & i & " : ") 
n = Console . ReadLlne 
If n > max Then 
max = n 
Pmax = i 
End If 
Next 

Console. WriteLine ("Le plus grand nombre est : " & max) 
Console. WriteLine ("Sa position est : " & Pmax) 
Console . ReadLlne () 
End Sub 
End Module 

5. 

Module Module 1 

Dim i, a, b, Cpt As Integer 
Sub Main () 

Console. Write ("Entrez un chiffre : ") 

a = Console . ReadLlne 

Cpt = 

For i = 1 To 20 

Console .Write ("Entrez un chiffre : ") 
b = Console . ReadLlne 
If a = b Then 

Cpt = Cpt + 1 
End If 
Next 
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Console. WriteLine ("Le nombre de fols de saisie de " & a & " est 
" & Cpt) 

Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim i, N As Integer 
Dim Y As Double 
Sub Main () 

Console. Write ("Entrez la valeur de N : ") 

N = Console . ReadLine 

If N >= 20 Then 

Y = (N A 10) 
Else 

Y = 1 

For i = 1 To N 

Y = Y * i 
Next 
End If 

Console. WriteLine ("La valeur de Y est : " & Y) 
Console . ReadLine () 
End Sub 
End Module 

7. 

Module Module 1 

Dim i, N, S As Integer 
Sub Main () 

Console. Write ("Entrez un nombre : ") 
N = Console . ReadLine 
For i = 1 To N - 1 

If N Mod i = Then 

S = S + i 
End If 
Next 
If N = S Then 

Console. WriteLine (N & " est par fait") 
Else 

Console .WriteLine (N & " N'est pas parfait ") 
End If 

Console . ReadLine () 
End Sub 
End Module 

8. 

Module Module 1 

Dim r,n, i As Integer 
Dim test As Boolean = True 
Sub Main () 

Console. Write ("Entrez un nombre : ") 
n = Console .ReadLine 
If n = Then 

Console . WriteLine ( " Pas premie ") 
Elself n = 1 Or n = 2 Then 

Console . WriteLine ( " Premie ") 
End If 
If n >= 3 Then 

For i = 2 To n - 1 
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r = n Mod i 
If r = Then 

test = False 
End If 
Next 
If test = False Then 

Console. WriteLlne ("Le nombre " & n & " N'est pas Premie") 
Else 

Console. WriteLine ("Le nombre " & n & " Est Premie") 
End If 
End If 

Console . ReadLine () 
End Sub 
End Module 









1. 

Module Module 1 

Dim a As Integer 
Sub Main () 

Console. Write ("Entrez un nombre compris entre 1 et 3 : ") 
a = Console . ReadLine 
While a < 1 Or a > 3 

Console .Write ("SVP f Saisir une valeur comprise entre 1 et 3 

") 

a = Console . ReadLine 
End While 
Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim a As Integer 
Sub Main () 

Console. Write ("Entrez un nombre compris entre 10 et 20 : ") 
a = Console . ReadLine 
While a < 10 Or a > 20 
If a < 10 Then 

Console. WriteLine ("Plus grand ! ") 
Else 

Console. WriteLine ("Plus petit ! ") 
End If 

Console. Write ("SVP / Saisir une valeur comprise entre 10 et 
20:") 

a = Console . ReadLine 
End While 
Console . ReadLine () 
End Sub 
End Module 
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Module Module 1 

Dim a, i As Integer 
Sub Main () 

Console. Write ("Entrez un nombre : ") 

a = Console . ReadLine 

i = a + 1 

While i <= a + 10 

Console . WriteLine (i) 
i = i + 1 
End While 
Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim i, n, max, Pmax As Integer 
Sub Main () 

Console. Write ("Entrez le nombre numero 1 : ") 
n = Console . ReadLine 
max = n 
Pmax = 1 
i = 1 

While n <> 
i = i + 1 

Console .Write ("Entrez le nombre numero " & i & " : ") 
n = Console . ReadLine 
If n > max Then 
max = n 
Pmax = i 
End If 
End While 

Console. WriteLine ("Le plus grand nombre est : " & max) 
Console .WriteLine ("Sa position est : " & Pmax) 
Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim prixlu r Somme r mpaye, reste As Integer 
Sub Main () 

Console. Write ("Entrez le prix : ") 
prixlu = Console .ReadLine 
Somme = Somme + prixlu 
While prixlu <> 

Console .Write ("Entrez le prix : ") 
prixlu = Console .ReadLine 
Somme = Somme + prixlu 
End While 

Console .Write ("Entrez le prix paye : ") 
mpaye = Console . ReadLine 
reste = mpaye - Somme 

Console. WriteLine ("Le reste est : " & reste) 
Console . ReadLine () 
End Sub 
End Module 
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1. 

Module Module 1 

Dim a, Compteur As Integer 
Dim Reponse As String 
Sub Main () 

Compteur = 
Do 

Console. Write ("Entrez un nombre : ") 
a = Console . ReadLine 
Compteur = Compteur + 1 

Console. Write ("Voulez-vous continuez 0/N ? : ") 
Reponse = Console . ReadLine 
Loop Until (Reponse = "n" Or Reponse = "N") 

Console. Write ("Le nombre de valeurs saisies est : " & Compteur) 
Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim a, Somme f Moyenne f Compteur As Integer 
Sub Main () 

Compteur = 
Somme = 
Do 

Console. Write ("Entrez un nombre : ") 
a = Console . ReadLine 
Compteur = Compteur + 1 
Somme = Somme + a 
Loop Until (a = 0) 
Moyenne = Somme / (Compteur - 1) 

Console. Write ( n La moyenne de valeurs saisies est : " & Moyenne) 
Console . ReadLine () 
End Sub 
End Module 

3. 

Module Module 1 

Dim a, Npos, Nneg As Integer 
Dim Reponse As String 
Sub Main () 

Npos = 
Nneg = 
Do 

Console. Write ("Entrez un nombre : ") 
a = Console . ReadLine 
If a > Then 

Npos = Npos + 1 
El self a < Then 

Nneg = Nneg + 1 
End If 
Console. Write ("Voulez-vous continuez 0/N ? : ") 
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Reponse = Console . ReadLine 
Loop Until (Reponse = "n" Or Reponse = "N") 

Console. WriteLine ("Le nombre de valeurs positives saisies est : " 
& Npos) 

Console. WriteLine ("Le nombre de valeurs positives saisies est : " 
& Nneg) 

Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim Caractere , Phrase As String 
Sub Main () 

Phrase = "" 
Do 

Console. Write ("Entrez une caractere : ") 
Caractere = Console . ReadLine 
If Caractere = "0" Then 

Caractere = " " 
End If 

Phrase = Phrase + Caractere 
Loop Until (Caractere = " . ") 

Console. WriteLine ("La phrase resultante est : " & Phrase) 
Console . ReadLine () 
End Sub 
End Module 




km ^sAul&dimension : 



Ard)MWk\ 



1. 

Module Module 1 

Dim i As Integer 
Dim X(4) As Integer 
Sub Main () 

X(l) = 12 
X(2) = 5 
X(3) = 8 
X(4) = 20 
For i = 1 To 4 

Console. Write (X(i) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

Module Module 1 

Dim i As Integer 

Dim Voyelle (6) As String 

Sub Main () 

Voyelle (1) = " a " 

Voyelle (2) = " e " 



Page 79 marouan.ts@gmail.fr 



ALGORITHMIQUE [2009 

Voyelle(3) = " i " 
Voyelle(4) = " o " 
Voyelle(5) = " u " 
Voyelle(6) = " y " 
For i = 1 To 6 

Console. Write (Voyelle (1) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim i As Integer 
Dim C(6) As Integer 
Sub Main () 

Console. WriteLine ("saisit success ivement les valeurs : 2 , 5 , 3 
, 10 , 4 , 2. : ") 

For i = 1 To 6 

Console. Write ("Entrez le nombre n° " & i & " : ") 
C(i) = Console . ReadLine 
Next 
For i = 1 To 6 

C(i) = C(i) * C(i) 
Next 
For i = 1 To 6 

Console.Write(C(i) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

3. 

Module Module 1 

Dim i As Integer 

Dim Suite (8) As Integer 

Sub Main () 

Suite (1) = 1 
Suite (2) = 1 
For i = 3 To 8 

Suite (i) = Suite (i - 1) + Suite (i - 2) 
Next 
For i = 1 To 8 

Console. Write (Suite (i) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim i, Somme As Integer 
Dim T(19) As Integer 
Sub Main () 

Somme = 

For i = To 19 

Console. Write ("Entrez 1' element n° " & i + 1 & " : ") 
T(i) = Console . ReadLine 
Somme = Somme + T(i) 
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Next 

Console. Write ("La somme des elements de ce tableau est : " & 
Somme) 

Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim i, Max, n As Integer 
Sub Main () 

Console. Write ("Entrez la taille du tableau : ") 
n = Console . ReadLine 
Dim T (n) As Integer 
For i = To n - 1 

Console. Write ("Entrez 1' element n° " & i + 1 & " : ") 
T(i) = Console . ReadLine 
Next 

Max = T(0) 
For i = 1 To n - 1 

If T(i) > Max Then 

Max = T(i) 
End If 
Next 

Console. Write ("Le plus grand element de ce tableau est : " & 
Max) 

Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim i, Moyenne, Somme, NoteSup As Double 
Dim Note (99) As Integer 
Sub Main () 

Somme = 
NoteSup = 
For i = To 99 

Console. Write ("Entrez la note n° " & i + 1 & " : ") 
Note(i) = Console . ReadLine 
Somme = Somme + Note (i) 
Next 

Moyenne = Somme / 100 
For i = To 99 

If Note (i) > Moyenne Then 
NoteSup = NoteSup + 1 
End If 
Next 

Console. Write ("Le nombre de notes superieures a la moyenne est 
" & NoteSup) 

Console . ReadLine () 
End Sub 
End Module 

i. 

Module Module 1 

Dim i r Max, Min, Pmax, Pmin, n As Integer 
Sub Main () 

Console. Write ("Entrez la taille du tableau : ") 
n = Console . ReadLine 
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Dim T (n) As Integer 
For i = 1 To n 

Console. Write ("Entrez 1' element n° " & i & " : ") 

T(i) = Console . ReadLine 
Next 

Max = T(l) 
Min = T(l) 
Pmax = 1 
Pmin = 1 
For i = 2 To n - 1 

If T(i) > Max Then 
Pmax = i 

Elself T(i) < Min Then 
Pmin = i 

End If 
Next 

Console. WriteLine ("La position du plus grand element : " & Pmax) 
Console. WriteLine ("La position du plus petit element : " & Pmin) 
Console . ReadLine () 
End Sub 
End Module 

8. 

Module Module 1 

Dim i, Cpt r n As Integer 
Dim X As Integer 
Sub Main () 
Cpt = 

Console. Write ("Entrez le nombre X : ") 
X = Console .ReadLine 

Console. Write ("Entrez la taille du tableau : ") 
n = Console . ReadLine 
Dim T(n) As Double 
For i = 1 To n 

Console. Write ("Entrez 1' element n° " & i & " : ") 
T(i) = Console .ReadLine 
If T(i) = X Then 

Cpt += 1 
End If 
Next 

Console. WriteLine ("Le nombre d' occurrences de X est : " & Cpt) 
Console . ReadLine () 
End Sub 
End Module 

9. 

Module Module 1 

Dim n, i, nbP r nblmp As Integer 
Sub Main () 

nblmp = 

nbP = 

Console. Write ("Entrez la taille du tableau : ") 

n = Console .ReadLine 

Dim T (n) As Integer 

For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t(i) = Console . ReadLine 
Next 
For i = To n - 1 

If T(i) Mod 2 = Then 
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nbP += 1 
Else 

nblmp += 1 
End If 
Next 

Console. WrlteLlne ("Le nombre d'entiers impairs est: " & nblmp) 
Console. WriteLine ("Le nombre d'entiers pairs est: " & nbP) 
Console . ReadLine () 
End Sub 
End Module 

10. 

Module Module 1 

Dim n, i, nbPos, nbNeg, Vmoy_Pos r Vmoy_Neg, nbNull, Som_Pos r Som_Neg 
As Double 

Sub Main () 

nbPos = 

nbNeg = 

nbNull = 

Som_Pos = 

Som_Neg = 

Console. Write ("Entrez la taille du tableau : ") 

n = Console . ReadLine 

Dim T(n) As Double 

For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t (i) = Console . ReadLine 
Next 
For i = To n - 1 

If T(i) = Then 

nbNull += 1 
Elself T(i) > Then 
nbPos += 1 
Som_Pos += T(i) 
Else 

nbNeg += 1 
Som_Neg += T(i) 
End If 
Next 

Vmoy_Pos = Som_Pos / nbPos 
Vmoy_Neg = Som_Neg / nbNeg 

Console .WriteLine ("Le nombre d' elements nuls est : " & nbNull) 
Console. WriteLine ("La valeur moyenne des elements positifs est: r 
& Vmoy_Pos) 

Console. WriteLine ("La valeur moyenne des elements negatifs est: r 
& Vmoy_Neg) 

Console . ReadLine () 
End Sub 
End Module 

11. 

Module Module 1 

Dim i, note r nnote r snote f smoyenne f cmoyenne As Double 
Dim Moy (24) As Double 
Sub Main () 

For i = To 24 
snote = 
nnote = 
Do 
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Console. Write ("Entrez la note d'eleve numero " & 1 + 1 & 
rt . rt \ 

note = Console . ReadLlne 
If note <> -1 Then 
snote += note 
nnote += 1 
End If 
Loop Until (note = -1) 
Moy(i) = snote / nnote 
smoyenne = smoyenne + Moy(i) 
Next 
For 1 = To 24 

Console. WrlteLine ("La moyenne d'eleve numero " & 1 + 1 & " 
est : " & Moy(i)) 
Next 

cmoyenne = smoyenne / 25 

Console. WrlteLine ("La moyenne de la classe est : " & cmoyenne) 
Console . ReadLlne () 
End Sub 
End Module 




1. 

Module Module 1 

Dim i, n As Integer 
Sub main () 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLlne 

Dim t(n), tcopy(n) As Integer 

For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t (i) = Console . ReadLlne 
Next 
For i = To n - 1 

tcopy(i) = t (n - 1 - i) 
Console .Write (tcopy (i) & " ") 
Next 

Console . ReadLlne () 
End Sub 
End Module 

2. 

Module Module 1 

Dim n, i, x, pos r temp As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLlne 
Dim t (n) As Integer 
For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t (i) = Console . ReadLlne 
Next 

n = n + 1 

Console. Write ("Entre 1' element a ajouter : ") 
x = Console . ReadLlne 
Console . WrlteLine ( " ") 
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Console. Write ("Entre sa position : ") 
pos = Console . ReadLine 
For i = pos To n - 1 

temp = t (i) 

t(i) = x 

x = temp 
Next 
For i = To n - 1 

Console.Write(t(i) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

3. 

Module Module 1 
Sub Main () 

Dim i, n, x, j, temp As Integer 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim t (n) As Integer 

For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t (i) = Console . ReadLine 
Next 
n += 1 

Console. Write ("Entrez le numero a ajouter : ") 
x = Console . ReadLine 
t(i) = x 

For i = n - 1 To 1 Step -1 
For j = 1 To i 

If t(j - 1) > t(j) Then 
temp = t (j) 
t(j) = t(j - 1) 
t (j - 1) = temp 
End If 
Next 
Next 
For i = To n - 1 

Console.Write(t(i) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Sub Main () 

Dim i, pos r n, x As Integer 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim t (n) As Integer 

For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 

t (i) = Console . ReadLine 
Next 

Console. Write ("Entrez 1' element a supprime : ") 
x = Console . ReadLine 
For i = To n - 1 



Page 85 marouan.ts@gmail.fr 



ALGORITHMIQUE 2009 



If x = t (i) Then 
pos = i 

End If 
Next 
For i = pos To n - 1 

t(±) = t(± + 1) 
Next 
For i = To n - 2 

Console.Write(t(i) & " ") 
Next 

Console . ReadLine () 
End Sub 

End Module 

5. 

Module Module 1 

Dim i, j, n As Integer 
Sub Main () 

Console. Write ("n : ") 
n = Console . ReadLine 

Dim teal (n + 1) , taff(n + 1) As Integer 
i = 1 

tcal(0) = 1 
tcal(l) = 1 

Console. WriteLine (teal (0) & " " & teal (1) ) 
i = i + 1 
While (i <= n) 
taff(0) = 1 
For j = 1 To i 

taff(j) = tcal(j) + tcal(j - 1) 
Next 
For j = To i 

Console. Write (taff(j) & " ") 
Next 

Console . WriteLine ( " ") 
For j = 1 To i 

tcal(j) = taff(j) 
Next 

i = i + 1 
End While 
Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim n, c, i As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim t(n), taff(n) As Integer 

For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t (i) = Console . ReadLine 
Next 
c = 
For i = To n - 1 

If t (i) Mod 2 = Then 
taff(c) = t(i) 
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c += 1 
End If 
Next 
For i = To n - 1 

If t (i) Mod 2 <> Then 
taff(c) = t(i) 
c += 1 
End If 
Next 
For i = To n - 1 

Console.Write(taff(±) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

7. 

Module Module 1 

Dim n, P, i As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim U (n) , V(n) As Integer 

For i = To n - 1 

Console. Write ("U(" & i + 1 & ") = ") 
U(i) = Console . ReadLine 
Next 
For i = To n - 1 

Console. Write ("V(" & i + 1 & ") = ") 
V(i) = Console . ReadLine 
Next 
For i = To n - 1 

P += U(i) * V(i) 
Next 

Console. WriteLine ("Le produit scalaire : " & P) 
Console . ReadLine () 
End Sub 
End Module 

8. 

Module Module 1 
Sub Main () 

Dim i, n, pos, max r c As Integer 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim t (n) As Integer 

For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t (i) = Console . ReadLine 
Next 
max = 
c = 1 
For i = 1 To n - 1 

If t(i) = t(i - 1) Then 

c = c + 1 
Else 

c = 1 
End If 

If c > max Then 
max = c 
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pos = 1 - c + 2 
End If 
Next 

Console. WriteLine ("Le plus long plateau commence a 1 ' Indice : " & 
pos) 

Console. Write ("II est de longueur : " & max) 
Console . ReadLine () 
End Sub 
End Module 



a. 

Module Module 1 
Sub Main () 

Dim i, n, j, temp As Integer 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim t (n) As Integer 

For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t (i) = Console . ReadLine 
Next 

For i = n - 1 To 1 Step -1 
For j = 1 To i 

If t(j - 1) > t(j) Then 
temp = t (j) 
t(j) = t(j - 1) 
t (j - 1) = temp 
End If 
Next 
Next 
For i = To n - 1 

Console.Write(t(i) & " ") 
Next 

Console . WriteLine ( " ") 
Console . ReadLine () 
End Sub 
End Module 

b. 

Module module 1 
Sub main () 

Dim i, j, n, m, temp As Integer 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console .ReadLine 

Dim t (n) As Integer 

For i = To n - 1 

Console.Write("t(" & i + 1 & ")=") 
t(i) = Console . ReadLine 
Next 

For i = To n - 2 
m = i 

For j=i+lTon-l 
If t(j) < t(m) Then 
temp = t (m) 
t(m) = t(j) 
t (j) = temp 
m = i 
End If 
Next 
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Next 

For i = To n - 1 

Console.Wr±te(t(±) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

c. 

Module Module 1 

Dim 1, j, n, elt As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = To n - 1 

Console.Write("t(" & i + 1 & ")=") 
t (i) = Console . ReadLine 
Next 

For i = 1 To n - 1 
elt = t(i) 

3 = i 

While t(j - 1) > elt And j > 
t(j) = t(j - 1) 

j = j ' 1 

If j = Then 

Exit While 
End If 
End While 
t (j) = elt 
Next 
For i = To n - 1 

Console.Write(t(i) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

10. 

Module Module 1 

Dim i, V, n As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = To n - 1 

Console.Write("t(" & i + 1 & ")=") 
t (i) = Console . ReadLine 
Next 

V = t(n - 1) 

Console. Write ("La valeur du dernier entier de la sequence est : " 
& V) 

Console . ReadLine () 
End Sub 
End Module 

11. 

Module Module 1 
Sub Main () 

Dim i, n, x, d, min As Integer 
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Console. Write ("Entrez la tallle du Tableau : ") 

n = Console . ReadLine 

Dim t (n) , td (x) As Integer 

For 1 = To n - 1 

Console.Wrlte("t(" & 1 + 1 & ")=") 
t (1) = Console . ReadLine 
Next 
x = -1 

Console. Write ("D = ") 
d = Console . ReadLine 
For i = To n - 1 

If t(i) > d Then 
x = x + 1 

ReDim Preserve td(x) 
td(x) = t(i) 
End If 
Next 

min = td(0) 

For i = To td. Length - 1 
If td(i) < min Then 

min = td(i) 
End If 
Next 

Console. Write ("La petite duree superieur a D est : " & min) 
Console . ReadLine () 
End Sub 
End Module 

12. 

Module Module 1 

Dim i, n As Integer 

Dim Test As Boolean = True 

Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = To n - 1 

Console.Write("t(" & i + 1 & ")=") 
t (i) = Console . ReadLine 
Next 
For i = To n - 1 

If t(i) < Then 
Test = False 
End If 
Next 
If Test = True Then 

Console. WriteLine ("La sequence comporte que des entiers 
positifs. ") 
Else 

Console. WriteLine ("La sequence ne comporte pas que des 
entiers positifs . ") 
End If 

Console . ReadLine () 
End Sub 
End Module 

13. 

Module Module 1 

Dim i, n, m, Temp, j, c, s As Integer 
Sub Main () 
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c = 

Console. Write ("Entrez la taille du Tableau 1 : ") 

n = Console . ReadLine 

Dim tl (n) As Integer 

For i = To n - 1 

Console. Write("tl(" & i + 1 & ")=") 

tl (i) = Console . ReadLine 
Next 

Console. Write ("Entrez la taille du Tableau 2 : ") 
m = Console .ReadLine 
Dim t2 (n) As Integer 
For i = To m - 1 

Console.Write("t2(" & i + 1 & ")=") 

t2 (i) = Console . ReadLine 
Next 

s = m + n 

Dim t (s) As Integer 
For i = To n - 1 

t (i) = tl (i) 
Next 
For i = n To s 

t(i) = t2(c) 

c = c + 1 
Next 
For i = s - 1 To 1 Step -1 

For j = 1 To i 

If t(j - 1) > t(j) Then 
Temp = t(j) 
t(j) = t(j - 1) 
t (j - 1) = Temp 
End If 

Next 
Next 
For i = To s - 1 

Console.Write(t(i) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

14. 

Module Module 1 

Dim i, j, c, n As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As String 
For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t (i) = Console . ReadLine 
Next 

Dim ch As String 
For i = To n - 1 
ch = t(i) 
c = 
For j = To ch. Length - 1 

If ch(j) = "a" Or ch(j) = "A" Then 

c += 1 
End If 
Next 
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If c >= 3 Then 

Console.WriteL±ne(t(i) & " ") 
End If 
Next 

Console . ReadLine () 
End Sub 
End Module 

15. 

Module Module 1 

Dim i, c As Integer 
Dim ch, s As String 
Sub Main () 

Console. Write ("Entrez la chaine : ") 
ch = Console . ReadLine 
c = 
s = ch(0) 

For i = 1 To ch. Length - 1 
If ch(i) = " " Then 

If ch(i -hi) <>s Then 

c += 1 
End If 
End If 
Next 
If c = Then 

Console. Write ("Le texte est un tautogramme") 
Else 

Console. Write ("Le texte n'est pas un tautogramme") 
End If 

Console . ReadLine () 
End Sub 
End Module 

16. 

Module Module 1 

Dim i, j, n, s, c, m As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau 1 : ") 
n = Console . ReadLine 
Dim tl (n) As Integer 
For i = To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
tl (i) = Console . ReadLine 
Next 

Console. Write ("Entrez la taille du Tableau 2 : ") 
m = Console .ReadLine 
Dim t2 (m) As Integer 
For i = To m - 1 

Console.Write("t(" & i + 1 & ")=") 
t2 (i) = Console . ReadLine 
Next 

Dim t (c) As Integer 
s = 
c = 
For i = To n - 1 

For j = To m - 1 

If tl(s) = t2(j) Then 
t (c) = tl (s) 
c = c + 1 
ReDim Preserve t (c) 
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End If 
Next 

s = s + 1 
Next 
For 1 = To c - 1 

Console.Write(t(±) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

17. 

Module Module 1 

Dim a, b, i, j, x, y, z, PGDC As Integer 
Sub Main () 

Console. Write ("Entrez a : ") 

a = Console . ReadLine 

Console. Write ("Entrez b : ") 

b = Console . ReadLine 

x = 

y = 

z = 

Dim tl (x) As Integer 

For i = 1 To a 

If a Mod i = Then 

ReDim Preserve tl (x) 
tl(x) = i 
x = x + 1 
End If 
Next 

Dim t2 (y) As Integer 
For i = 1 To b 

If b Mod i = Then 

ReDim Preserve t2 (y) 
t2(y) = i 
y = y + 1 
End If 
Next 

Dim t (z) As Integer 
For i = To x - 2 

For j = To y - 2 

If tl (i) = t2 (j) Then 
ReDim Preserve t (z) 
t (z) = tl (i) 
z = z + 1 
End If 
Next 
Next 

PGDC = t(0) 

For i = To t. Length - 1 
If t(i) > PGDC Then 

PGDC = t(i) 
End If 
Next 

Console. Write ("Le plus grand diviseur commun est :" & PGDC) 
Console . ReadLine () 
End Sub 
End Module 
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1. 

Module Module 1 

Dim i, j, n, m, S As Integer 
Sub Main () 
S = 

Console. Write ("Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes : ") 
m = Console . ReadLine 
Dim T(n, m) As Integer 
For i = To n - 1 

For j = To m - 1 

Console. Write ("Entrez 1' element T (" & i + 1 & " ; " & j + 1 
& ") " & " : ") 

T(i, j) = Console .ReadLine () 
Next 
Next 
For i = To n - 1 

For j = To m - 1 

S = S + T(i, j) 
Next 
Next 

Console. Write ("La somme est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim i, j, n, m, S As Integer 
Sub Main () 

Console. Write ("Entrez le nombre de lignes : ") 

n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes : ") 

m = Console . ReadLine 

Dim T(n, m) As Integer 

For i = To n - 1 

For j = To m - 1 

Console. Write ("Entrez 1' element T (" & i + 1 & " ; " & j + 1 
& ") " & " : ") 

T(i, j) = Console .ReadLine () 
Next 
Next 

For i = To n - 1 
S = 
For j = To m - 1 

S = S + T(i, j) 
Next 

Console. WriteLine ("La somme de linge " & i + 1 & " est : " & 
S) 

Next 

Console . ReadLine () 
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End Sub 
End Module 

3. 

Module Module 1 

Dim i, S, n, m, j As Integer 
Sub Main () 

Console. Write ("Entrez le nombre de lignes : ") 

n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes : ") 

m = Console . ReadLine 

While (n <> m) 

Console . WriteLine ( "Impossible ") 
Console. Write ("Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes: ") 
m = Console . ReadLine 
End While 

Dim T(n, m) As Integer 
For i = To n - 1 

For j = To m - 1 

Console.Write("T(" & i + 1 & ";" & j + 1 & ") = ") 
T(i, j) = Console . ReadLine 
Next 
Next 
S = 
For i = To n - 1 

S = S + T(i, i) 
Next 

Console. Write ("La somme des elements de la diagonale est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim i, j, n, m, P As Integer 
Sub Main () 
P = 1 

Console. Write ("Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes : ") 
m = Console . ReadLine 
Dim T(n, m) As Integer 
For i = To n - 1 

For j = To m - 1 

Console. Write ("Entrez l f element T (" & i + 1 & " ; " & j + 1 
& ") " & " : ") 

T(i, j) = Console .ReadLine () 
Next 
Next 
For i = To n - 1 

For j = To m - 1 

P = P * T(i, j) 
Next 
Next 

Console. Write ("Le produit est : " & P) 
Console . ReadLine () 
End Sub 
End Module 
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5 

Module Module 1 

Dim i, S, n, m, j As Integer 
Sub Main () 

Console. Write ("Entrez le nombre de lignes : ") 

n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes : ") 

m = Console . ReadLine 

Dim T(n, m) , V(m, 1) , R(m, 1) As Integer 

For i = To n - 1 

For j = To m - 1 

Console.Write("T(" & i + 1 & " , " & j + 1 & ") = ") 
T(i, j) = Console . ReadLine 
Next 
Next 

Console . WriteLine ( " ") 
For i = To m - 1 

Console. Write ("V(" & i + 1 & " , " & 1 & ") = ") 
V(i, 0) = Console . ReadLine 
Next 

For i = To n - 1 
S = 
For j = To m - 1 

S = S + (T(i, j) * V(j, 0)) 
Next 

R(i, 0) = S 
Next 
For i = To n - 1 

Console. Write (R(i, 0) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim i, S, n, m, j As Integer 
Sub Main () 

Console. Write ("Entrez le nombre de lignes : ") 

n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes : ") 

m = Console . ReadLine 

Dim T(n, m) , V(n, m) , P (n, m) As Integer 

For i = To n - 1 

For j = To m - 1 

Console.Write("T(" & i + 1 & " , " & j + 1 & ") = ") 
T(i, j) = Console . ReadLine 
Next 
Next 

Console . WriteLine ( " ") 
For i = To n - 1 

For j = To m - 1 

Console. Write ("V(" & i + 1 & " , " & j + 1 & ") = ") 
V(i, j) = Console . ReadLine 
Next 
Next 
For i = To n - 1 

For j = To m - 1 

P(i, j) = (T(i, j) * V(i, j)) 
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Next 
Next 
For 1 = To n - 1 

For j = To m - 1 

Console.Write(P(±, j) & " ") 
Next 

Console . WrlteLlne ( " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

7. 

Module Module 1 

Dim 1, j, n, m, Cpt As Integer 
Sub Main () 

Console. Write ("Entrez le nombre de lignes : ") 

n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes : ") 

m = Console . ReadLine 

While (n <> m) 

Console . WriteLine ( "Pas caree ") 

Console. Write ("Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes: ") 
m = Console . ReadLine 
End While 

Dim T(n, m) As Integer 
For i = To n - 1 

For j = To m - 1 

Console.Write("t(" & i + 1 & " , " & j + 1 & ") = ") 
T(i, j) = Console . ReadLine 
Next 
Next 
Cpt = 
For i = To n - 1 

For j = To m - 1 

If T(i, j) <> T(j, i) Then 

Cpt = Cpt + 1 
End If 
Next 
Next 
If (Cpt <> 0) Or (m <> n) Then 

Console. Write ("Pas caree et symetrique") 
Else 

Console . Write ( "caree et symetrique ") 
End If 

Console . ReadLine () 
End Sub 
End Module 

8. 

Module Module 1 

Dim i, j As Integer 
Sub Main () 

Dim T(10, 10) As Integer 
For i = To 10 

For j = To 10 

t(i, j) = i * j 
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Next 
Next 

Console. WriteLlne("X *Y0123456789 
10") 

For 1 = To 10 

For j = To 10 

Console.Write(T(i, j) & " ") 

Next 

Console . WrlteLlne ( " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

9. 

Module Module 1 

Dim i, j, n, m, Max, Min r Pmax_x, Pmax_y, Pmin_x, Pmin_y As Integer 
Sub Main () 

Console. Write ("Entrez le nombre de lignes : ") 

n = Console . ReadLine 

Console. Write ("Entrez le nombre de colonnes : ") 

m = Console . ReadLine 

Dim T(n, m) As Integer 

For i = To n - 1 

For j = To m - 1 

Console.Write("t(" & i + 1 & " , " & j + 1 & ") = ") 
T(i, j) = Console . ReadLine 
Next 
Next 

Max = T(0, 0) 
Min = T(0, 0) 
Pmax_x = 1 
Pmax_y = 1 
Pmin_x = 1 
Pmin_y = 1 
For i = To n - 1 

For j = To m - 1 

If T(i, j) > Max Then 
Max = T(i, j) 
Pmax_x = i + 1 
Pmax_y = j + 1 
End If 

If T(i r j) < Min Then 
Min = T(i, j) 
Pmin_x = i + 1 
Pmin_y = j + 1 
End If 
Next 
Next 

Console. WriteLine ("Le plus grand element est : " & Max) 
Console. WriteLine ("Sa postion est : " & "T (" & Pmax_x & ";" & 
Pmax_y & ") ") 

Console. WriteLine ("Le petit element est : " & Min) 
Console. WriteLine ("Sa postion est : " & "T (" & Pmin_x & ";" & 
Pmin_y & ") ") 

Console . ReadLine () 
End Sub 
End Module 

10. 
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Module Module 1 

Dim i, j, n As Integer 
Sub Main () 

Console. Write ("n = ") 
n = Console . ReadLine 
While (n <= 0) 

Console . WriteLine ( "Impossible ") 
Console. Write ("n = ") 
n = Console . ReadLine 
End While 

Dim T(n, n) As Integer 
T(0, 0) = 1 
T(l, 0) = 1 
T(l, 1) = 1 
For i = 2 To n 

For j = To i 

T(i, j) = T(i - 1, j) + T(i - 1, i - j) 
Next 
Next 
For i = To n 

For j = To i 

Console. Write (T(i, j) & " ") 
Next 

Console . WriteLine ( " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

11. 

Module Module 1 

Dim n, i, j, s, c, cl, si, Cmpt As Integer 
Sub Main () 

Cmpt = 

Console. Write ("Entrez le nombre de lignes : ") 

n = Console . ReadLine 

Dim T(n, n) As Integer 

For i = To n - 1 

For j = To n - 1 

Console.Write("T(" & i + 1 & " , " & j + 1 & ") = ") 
T(i, j) = Console . ReadLine 
Next 
Next 
cl = 
si = 
For j = To n - 1 

si = si + T(j, j) 
cl = cl + T(j f n - 1 - j) 
Next 
If si = cl Then 

Cmpt = Cmpt + 2 
End If 

For i = To n - 1 
c = 
s = 

For j = To n - 1 
s = s + T(i, j) 
c = c + T(j, i) 
Next 
If (s = c) And (s = si) Then 
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Cmpt = Cmpt + 2 
End If 
Next 
If Cmpt = (2 * n) + 2 Then 

Console . WriteLine ( "car re magique ") 
Else 

Console . WriteLine ( "car re pas magique ") 
End If 

Console . ReadLine () 
End Sub 
End Module 

12. 

Module Module 1 

Dim i, j, L, C, x, y As Integer 
Sub Main () 

Console. Write (" L : ") 

L = Console . ReadLine 

Console. Write (" C : ") 

C = Console . ReadLine 

While (L > 10 Or C > 10) Or (L < Or C < 0) 

Console. WriteLine ("SVP, L et C devent etre compris entre et 
10") 

Console. Write (" L : ") 
L = Console .ReadLine 
Console. Write (" C : ") 
C = Console . ReadLine 
End While 

Dim M(L, C) As String 
Dim V(L * C) As String 
x = 
y = L * C 
For i = To L - 1 

For j = To C - 1 

Console. Write ("M(" & i + 1 & " ; " & j + 1 & ") = ") 
M(i, j) = Console . ReadLine 
Next 
Next 
For i = To L - 1 

For j = To C - 1 
V(x) = M(i, j) 
x += 1 
Next 
Next 
For i = To y - 1 

Console. Write (V(i) & " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 

13. 

Module Module 1 

Dim i, j, N, M As Integer 
Sub Main () 

Console. Write (" N : ") 
N = Console .ReadLine 
Console. Write (" M : ") 
M = Console . ReadLine 
Dim tA(N, M) As String 
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Dim A(M, N) As String 

For i = To N - 1 

For j = To M - 1 

Console. Write ("tA(" & i + 1 & " ; " & j + 1 & ") = ") 
tA(i r j) = Console . ReadLine 
Next 
Next 
For i = To N - 1 

For j = To M - 1 

A(j, i) = tA(i, j) 
Next 
Next 
For i = To M - 1 

For j = To N - 1 

Console. Write (A (i, j) & " ") 
Next 

Console . WriteLine ( " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 
14. 
Module Module 1 

Dim i, j, N, M As Integer 
Sub Main () 

Console. Write (" N : ") 
N = Console . ReadLine 
Console. Write (" M : ") 
M = Console . ReadLine 
Dim A(N, M) As String 
Dim B(N, M) As String 
Dim A_B(N, M) As String 
For i = To N - 1 

For j = To M - 1 

Console. Write ( "A (" & i + 1 & " ; " & j + 1 & ") = ") 
A(i, j) = Console . ReadLine 
Next 
Next 

Console . WriteLine ( " ") 
For i = To N - 1 

For j = To M - 1 

Console.Write("B(" & i + 1 & " ; " & j + 1 & ") = ") 
B(i, j) = Console . ReadLine 
Next 
Next 
For i = To N - 1 

For j = To M - 1 

A_B(i f j) = A(i, j) & " + " & B(i, j) 
Next 
Next 
For i = To N - 1 

For j = To M - 1 

Console.Write(A_B(i, j) & " ") 
Next 

Console . WriteLine ( " ") 
Next 

Console . ReadLine () 
End Sub 
End Module 
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1. 

Module Module 1 

Dim P, i, S As Integer 
Sub Main () 

Console. Write ("Entrez la puissance : ") 

P = Console . ReadLine 

S = 

For i = 1 To P 

S = S + (3 A (i - 1)) 
Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim P, i, S, X As Integer 
Sub Main () 

Console. Write ("Entrez la Valeur de x : ") 

X = Console .ReadLine 

Console .Write ("Entrez la puissance : ") 

P = Console . ReadLine 

S = 

For i = To P 

S = S + (X A (i * 2)) 
Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

3. 

Module Module 1 

Dim N, i, S As Double 
Sub Main () 

Console. Write ("Entrez la valeur de N : ") 

N = Console . ReadLine 

S = 

For i = 1 To N 

S = S + (1 / i) 
Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 
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Dim N, i, S As Double 
Sub Main () 

Console. Write ("Entrez la valeur de N : ") 

N = Console . ReadLine 

S = 1 

For i = 1 To N 

S = S + (1 / (2 * i)) 

Next 

Console. Write ("S est : " & S) 

Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim N, i, S As Double 
Sub Main () 

Console. Write ("Entrez la valeur de N : ") 

N = Console . ReadLine 

S = 1 

For i = 1 To N 

S = S - (1 / (2 * i)) + (1 / (2 * i + 1)) 
Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim N, i, S As Double 
Sub Main () 

Console. Write ("Entrez la valeur de N : ") 

N = Console . ReadLine 

S = 1 

For i = 1 To N 

S = S + (i / (i + 1)) 
Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

i. 

Module Module 1 

Dim N, i, S As Double 
Sub Main () 

Console. Write ("Entrez la valeur de N : ") 

N = Console . ReadLine 

S = 1 

For i = 1 To N 

S = S - (1 / (3 * i)) + (1 / (3 * i + 1)) 
Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 
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Module Module 1 

Dim P , i, S, X As Double 
Sub Main () 

Console. Write ("Entrez la valeur de X : ") 

X = Console . ReadLine 

Console. Write ("Entrez la puissance : ") 

P = Console . ReadLine 

S = 

For i = To P 

S = S + (X A (2*i+l)) / (2 * i + 1) 
Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

9. 

Module Module 1 

Dim i, S, N As Double 
Sub Main () 

Console. Write ("Entrez la valeur de N : ") 

N = Console . ReadLine 

S = 1 

For i = 1 To N 

S = (3 * S + 5) 
Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 



10. 




Module Module 1 


Dim 


i, N, X, Y, S As Double 


Sub 


Main () 




X = 1 / 2 




Y = 1 




Console .Write ("Entrez la valeur de N 




N = Console .ReadLine 




S = 




For i = 1 To N 




S = (3 * Y) - (5 * X) 




X = Y 




Y = S 




Next 




Console. Write ("S est : " & S) 




Console . ReadLine () 


End 


Sub 


End Module 



") 



11. 

Module Module 1 

Dim i, e, X, P, F As Double 
Sub Main () 

Console. Write ("Entrez la valeur de x : ") 

X = Console . ReadLine 

Console. Write ("Entrez la puissance : ") 

P = Console .ReadLine 

e = 1 
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F = 1 

For i = 1 To P 
F = F * i 

e = e + ((X A i) / F) 
Next 

Console. Write ("e est : " & e) 
Console . ReadLine () 
End Sub 
End Module 

12. 

Module Module 1 

Dim i, e, X, EPS, F As Double 
Sub Main () 

Console. Write ("Entrez la valeur de x : ") 

X = Console . ReadLine 

Console. Write ("Entrez la valeur d'EPS : ") 

EPS = Console . ReadLine 

e = 1 

F = 1 

i = 1 

Do 

F = F * i 

e = e + ((X A i) / F) 
i += 1 
Loop Until (e < EPS) 
Console. Write ("e est : " & e) 
Console . ReadLine () 
End Sub 
End Module 

13. 

Module Module 1 

Dim i, X, F, P, S, L, j, k As Double 
Sub Main () 

Console. Write ("Entrez la valeur de X : ") 
X = Console . ReadLine 

Console. Write ("Entrez la puissance : ") 
P = Console . ReadLine 
S = 

For i = To P 
F = 1 
L = 1 
For j = 1 To (4 * i + 1) 

F = F * j 
Next 
For k = 1 To (4 * i + 3) 

L = L * k 
Next 

S = S + ((X A (4*1+1)) / F) - ((X A (4 * i + 3)) / L) 
Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 
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Conclusion : 

J'espere que vous avez trouve au moins ce que vous cherchez, et que ce 
document etait vraiment utile. 

Et merci a toute personne qui a contribue, de pret ou de loin, a 1' amelioration de 
mon bagage technique. 



Pour plus d' informations veuillez nous ecrire a l'adresse email suivante: 
Email: marouan.ts @ gmail.com 
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